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إهداء إلى 
إلى أبي وأمي ذلك الرجل - رحمه الله - الذي علمني أن الحياةقيم› 


وبهذه القيم تطمئن النفس ويرتاح البال مهما كانت الظروف › وهذه الأم التي علمتني 
معنى المثابرة والحب والعط اء فهي نبع الحذ iùنأنن‏ . 


إهداء إلى 

إلى الإستاذ سنان أحمد نصر رئيس قسم تكنولوجيا المعلومات / كلية غرناطة › 
الذي عرفته يقدس العمل والعطاء إلى درجة تقف بجانب أعظم العبادات › والذي لم أكد أعرض 
عليه هذا المشروع إلا و وجدته متحمساً معيناً بأقصى درجاتاتت الحماس والعون . 


إلى كل من أحب العمل و أحب النجاح و أحب العط اء ....... إلى كل من شاءت 
الأقدار و وصل هذا المشروع إلى يدب هه . 


هدي هذا المشروع oo‏ 


@ 
a 


3 <<<<<< 2 °: 


| DIDDIIIDD 


( Introduction ) ةnدقnئll‎ ** 


قال تعالى : " و ما أتيتم من العلم إلا قليلا "سید س 
الد ر ا و ات اا راد غ ارف ا 


من المعلوم لدى جميع مستخدمين الكمبيوتر خاصة المبرمجين 
منهم - أن هنالك العديد من البرا مج التي تتعامل مع قواعد البيانات بأنواعها 
المختلفة » و أن هذه البرامج ج إنتشرت إنتشاراً واسعاً » حيث أن هذه البرامج 
بدأت تتخدم في المستتفيات و الشركات و المزمسات و اواز 
CE TE‏ 


لذا قررت أن أقوم بالكتابة عن كيفية تنظيم نظام إدارة بيع وشراء 
الهواتف كعبارة عن مشروع تخرجي » و أتمنى أن تصل جميع المعلومات 
الموجودة فيه إلى قارئه بالسهولة المطلوبة » و أن يحوز على رضى جميع 
قرائه . 


أسأل المولى عز و جل أن يوفقني في هذا الكتيب (كتاب مشروع 
التخرج) و أن يجعله منبعاً للخير و الفائدة لكل من يقراءه » وما كان فيه 
من خير و فائده فهو من عند الله » و ما کان فيه من خطا فهو من النفس 
البشرية » و أتمنى أن أكون قد أكملته على أكمل وجه ممكن إمتثالاً لقول 
رسول الله - صل الله عليه وسلم - " إن الله يحب أحدكم إذا عمل عملا أن 
نتقذه '"' 


عبدالکر ‏ یم محمد أبونمر 


** تحليل النظام واوراه۸» ۸ءstرک‏ 


هو إصطلاح عام يرتبط بمفهوم و أسلوب النظام » و يشير الى 
للك الاك اة مط ي اة ع و كل الت كلدت 
وذلك وفق مفهوم النظام » و من تم تجزئتها الى عناصر و إيجاد 
الاقات اشاي الو فن هة الشاضر قن ل اة 


و من الضروري طرح فكرة أن تحليل النظام يتصف بالعمومية 
الى حد بعيد » بحيث يمكن إعتماده في أي مجال ولأي مشكلة › متلا 
يمكن إعتماد أسلوب تحليل النظام عند التعرض لمشكلة إقلال التكلفة › 
أو تعظيم الأرباح بمؤسسة ما » كما يمكن استخدامه عند حل مشكلة 
برمجية » لذلك فإن عملية تحليل النظام تأخذ مسميات متعددة مثل 
دراسة النظام أو دورة حياة النظام . 

و مهما كانت المسميات فهي كما يقال وجهين لعملة واحدة » وهي بكافة 
الأحوال تتعلق باحدى العمليتين التاليتين ٠‏ 


١‏ عملية إنشاء نظام معلومات باستخدام الحاسب الل 


۲ . عملية تحويل نظام معلومات يدوي الى نظام معلومات يعمل على 
الحاسب الألي . 


و بناءً على ما سبق يمكننا القول أن تحليل النظام هو عملية تحليل 
أجل توفير المعلومات اللازمة لصنع القرارات في منظمة ما . 


** نظام إدارة بيع و شراء الهواتف 
Management Sales el Purchases Phones System‏ 


وهو عبارة عن نظام فرعي لنظام أكبر و هو نظام شركة 
الإتصالات الاردنية » يعمل على تقديم خدمة للمستهلك وهي إقتناء 
الأجهزة الهاتفية » يتكون من ثلاثة أنظمة فرعية و هي نظام المبيعات › 
نظام المشتريات » نظام المخزون . تعمل هذه الأنظمة بشكل متكامل مع 
بعضها البعض ٠‏ لكل نظام فر عي وظائفه الخاصة يقوم بها بمنتهى 
الدقة مخرجاته عبارة عن مدخلات لنظام أخر › يعمل هذا النظام على 
الشكل التالي : 


* نظام المبیعات "ءا رک esلهک‏ 

يقوم هذا النظام بإستقبال طلبات الشراء من العملاء و دراستها 
من حيث هل المطلوب متوفر لدى الشركة و بالكمية المطلوبة › مع 
حساب نسبة الأرباح و الخسائر و تطبيق قوانين الخصومات على 
الكمية المطلوبة » و رفع إشعار لنظام المخزون بحسم الكمية المطلوبة 
من قيود الشركة . 


* نظام المشتريIاٽ Purchases System‏ 
يقوم هذا النظام على إرسال طلبات الشراء ( الإستيراد ) للأجهزة 
المخزون لسد النقص الموجود في الشركة حسب المواصفات المذكورة 

في الطلب مع تحديد أدنى و أعلى سعر للشراء . 


* نظام المخزون "ءstر؟ S٤06۸,‏ 

يقوم هذا النظام بخزن الأجهزة و تصنيفها حسب طرازها وعلى 
رفع إشعار بأن النوعية المطلوبة للبيع غير متوفرة و بحاجة الى شراء 
و بأن المخزن بحاجة الى نوعية هاتف و بالمواصفات المذكورة في 
ا ع 


د أتصميہ المشروع لانه ٠‏ 


. يعرف كل نموذج بصورة مستقلة عن الأخرى لذلك ينتج عنه 
نموذج متكامل قليل الخطا. 
. يعتبر من أفضل النماذج للتصميم و أوضحها في تعريف 
المتطلبات والتصميم لأنه يقوم بتعريف كل خطوة على حدى . 
. لا يتم الأنتقال الى المرحلة التالية إلا بعد إتمام المرحلة السابقة 
بنجاح . 
.٥‏ یستخدم نموذج الشلالات لإنشاء مشاريع ضخمة ومعقدة خاصة 
إذا كان النظام يتم التعامل معه من مواقع مختلفة. 
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الشكل (1.1) نموذج الشلالات 
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The requirements engineering p10Ccess (1.2) الشكل‎ 


Feasibility 
Study 


Feasibility 
Reports 


سوف آقوم بإتباع المخطط أعلاه في عملية دراسة الجدوى للنظام (المشروع) 


** تحديد ائnتطlبlٽ Requirements Definition‏ 
تقسم المتطلبات إلى ثلاثة أنواع : 


.١‏ متطلبات النظام 
1. متطلبات وظيفية 
۳. متطلبات غير وظيفية 


Requirements System plظiأl متطلبات‎ * 


.١‏ العمل على أتمتة المكاتب و الإستغناء عن العمليات 
اليدوية . 

1. توفير الوقت و الجهد. ِ 

۳. تقديم الخدمة للمستهلك بأقصى سر عة ممكنة . 

. تقليل التكلفة‎ . ٤ 


Requirements functional متطلبات إلوظيفية‎ * 


تحديد المتطلبات الفعلية للنظام ( إعدادت النظام » الموردين للأجهزة › 
شركات المصنعة » قائمة الأجهزة » سجل العملاء > سجل الموردين › 
حسابات العملاء » حسابات الموردين » التقارير » فواتير البيع و الشراء) . 


. توفير واجهات تعرض معلومات العملاء‎ .١ 

۲. توفير واجهات تعرض معلومات الموردين . 

۳. توفير واجهات تعرض طراز الأجهزة . 

. توفير واجهات تعمل على صياغة التقارير‎ .٤ 

. توفير واجهات تعمل على صياغة فواتير البيع و الشراء‎ .٥ 


* متطلبات غير وظيفية ( غير ملمو سة ( Requirements un functional‏ 


به وذلك بعمل كلمة مرور. 
. (ءهى (الأمن): حماية بيانات النطام من الضياع في حال حدوث خلل 
وذلك بعمل نسخ احتياطية للنظام» أو إستخدام دالات العملة. 
. ر 6#مت/ء (الموثوقية): أن يكون النظام مهيئ للعمل بأطول فترة ممكنة 


Objectives Definition تحديد الأهداف‎ ** 


. في فترة زمنية لا تزيد عن سنة‎ % ٠١ تقليل التكاليف بنسبة‎ .١ 
. في السنة الواحدة‎ % ٠١ زيادة نسبة الربح‎ .۲ 

فى ر خا دمن 

. جعل النظام مرن غير معقد يستوعبه العاملين‎ .٤ 


** دراسة الجدوى الإقتصادية Feasibility Study‏ 


يعتبر الإعداد للمشاريع الاقتصادية من أهم الخطوات لنجاح هذه 
المشاريعء حيٿث أن التخطيط السليم للمشاريع يضمن مدى نجاح وفاعلية هذه 
المشاريع» بالإضافة إلى العائد المادي (الربح المادي) الجيد المتوقع من هذه 
المشاريع. لذا وقبل البدء بأي مشروع اقتصادي يجب عمل جدوى اقتصادية 


* الجدوى الاقتصادية : 

هي عبارة عن عملية جمع المعلومات عن مشروع مقترح ومن تم 
تحليلها لمعرفة إمكانية تنفيذء وتقليل مخاطر وربحية المشروع. وبالتالي يجب 
معرفة مدى نجاح هذا المشروع أو خسارته مقارنة بالسوق المحلي 
واحتیاجاته. 


ومن هنا يجب عمل دراسة للسوق المحلى من حيث احتياجاته 


ا 
را 


ولعمل أي جدوى اقتصادية على صاحب العمل الأخذ بعين الاعتبار النقاط 


أول: على صاحب / أصحاب المشروع معرفة الأمور التالية حول أنفسهم قبل 
البدء بتنفيذ المشروع ›» وهي : 


ê >‏ هي الدوافع ال ۰ ية والني . 5 نجاح 1 0% وع. 


وبالتالي يجب معرفة الأشخاص المشاركين بالمشروع ومعرفة المهارات التي 
يمتلکونها (مهارات الاتصال› التصميمء > الإشراف»› التنظيمء > الرياضيات» 
N N N OG TT‏ 
اا ا ل ا ا و و ا 
وغيرها) ومعرفة الخبرات السابقة والمستوى التعليمي. 


تانيا: دراسة السوق من حيث: 

ما هي خصائص سوق سلعتك. 

كم حصتك بالسوق. 

كيف يمكن أن تبيع سلعتك بحيث تستطيع أن يكون لك حصة في السوق. 


** ما هي دراسة الجدوى للمشروع : 
هي طريقة تستخدم لتعرف على مدى توفر الإمكانيات اللازمة لتنفيذ 
المشروع وتسويق إنتاجه وهل هو مربح ام لا. 


وللإجابة على هذا السؤال» نقوم بعمل دراسة الجدوى الاقتصادية للمشروع 
من خلال جمع المعلومات ونقاشها وتحليلها اعتماداً على ٠‏ خطوات متتابعة 
ومتسلسلة» وتشكل هذه الخطوات الستة الخطوات الرئيسية التي لا بد منها 

لعمل دراسة جدوى اقتصادية لاي مشروع صغير. 


** الخطوة الأولى: اختار سلعة أو خدمة تبيعها . 


وهنا لا بد من الاستطلاع والتفكير والنقاش حول فكرة المشروع 
المناسبة والتي تبدو مجدية من خلال تحليلها والتأكد منها وعندها نقرر أي 
مشروع يجب دراسته وعمل جدواه الاقتصادية. تم أختيار عمل مشروع نظام 
ازو ودارا 


** الخطوة الثانية: اعرف ما إذا كان الناس سيشترون السلعة أم لا 


احتياجات وطلب الزبائن المحتملين أو الحقيقين» وكذلك لا بد من التأكد 


** الخطوة الثالثة : قرر كيف سيعمل مشرو عك ١‏ لصغيبر 


حيث آنه من الضروري أن نتخذ قرارآً مدروساً حول كيف سيتم تشغيل 
المشروع ودراسة طبيعة الحال حول المشروع وطريفة تشغيله. 


** الخطوة الرابعة: احسب تكاليف المشروع 


يجب معرفة أنواع التكاليف وحسابها وأخذها بعين الاعتبار عند تجهيز وعمل 
دراسة الجدوىء» وتنقسم التكاليف إلى نوعين : 


1. تكاليف ثابتة: مثل (الرواتب» إيجار المحلات» تأمينات العمال , 
والا . لاك ) . 


2. تكاليف متغيرة: مثل (مواد الخام» أجورء الصيانة» مواصلات , 
مصروفات الكهرباءء والمياه) 


kk‏ | لخطوة الخامسة: تقدير دخل ١‏ لمشروع من | لمبيعات 


تقدر الكمية التي يمكن بيعها من خلال المشروع خلال فترة زمنية معينة 


** الخطوة السادسة: قرر هل فكرة المشروع جيدة 


وهنا لا بد من اتخاذ القرار حول فكرة المشروع ولذلك لا بد من سؤال 
أنفسنا السؤال الآتي : 


1.حجم أرباحنا من المشروع. 
2. كيف يمكن حساب أرباحنا والتدفق النقدي. 


3 ما هي الفوائد الأخرى الهامة. 
4. ثم نقرر ما إذا كانت فكرة المشروع جيدة أم لا. 


إذا كانت الفكرة جيدة نبدأً بتحضير وعمل خطة العمل» وإذا كانت غير 
جيدة نلقي الفكرة الأولى نبحث عن فكرة مشروع اجدى وانجح 


2K AF 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2F 2 2F 2F 2F 2f 2K 
المشروع‎ 2k f 
دراسة الجدوى الإقتصادية الإولية‎ 
نظام إدارة بيع و شراء الهواتف‎ 
. يقام بشركة الاتصالات الاردنية‎ 


** بيانات دراسة الجدوى الاقتصادية 


الاس م : عبد الكريم محمد أبونمر 

بيانات إثبات الشخصية : هوية شخصية رقم 8449630 
ا اق د ر ر کا رخا 
نوع النشاط : تجاري ٠‏ 

عنوان النشاط الحالى : نظام إدارة بيع وشراء الهواتف 


ثانيا : بيانات وافية عن المشروع 
* وصف المشروع : 


وهو عبارة عن نظام فرعي لنظام أكبر و هو نظام شركة الإتصالات 
الاردنية » يعمل على تقديم خدمة للمستهلك وهي إقتناء الأاجهزة الهاتفية › 
المخزون . تعمل هذه الأنظمة بشكل متكامل مع بعضها البعض » لكل نظام 
فرعي وظائفه الخاصة يقوم بها بمنتهى الدقة مخرجاته عبارة عن مدخلات 
لنظام آخر . 


* الموقع والمكان ومساحة الأرض المقام عليها المشروع: 


يقام هذا المشروع بأرض الشركة الاتصالات الاردنية التى تقع في 
مدينة إربد على أرضا مساحتها ٠٠١‏ متر مربع. 


* تمويل المشروع : 


يتم تمويل المشروع اعتمادا على التمويل الذاتى من أصحاب المشروع › 
وذلك خلال كل من المرحلة الأولى والمرحلة الثانية » هذا ويمكن الاستعانة 
بالتمويل الخارجى من البنوك الاردنية عند الحاجة ال زيادة كفاءة القدرة 
الإنتاجية. 


> التكاليف ال a‏ ارية 1 8 و 


تقدر التكاليف الاستثمارية للمشروع بمبلغ ۲٠٠٠١٠١‏ دينار موزعة إلى 
مبلغ ٠۸٠٠٠١‏ دينار قيمة تكلفة الأصول الثابتة » ومبلغ ٠٤٠١٠٠١‏ دينار قيمة 
تكلفة رأس المال العامل. 


* الطاقة الإنتاجية للمشروع : 


تبلغ قيمة الطاقة الإنتاجية للنظام في السنة ۸١۲۸٠١‏ دينار طبقا لخطة 
الإنتاج السنوية الموضحة بالتفصيل بدراسة الجدوى وفقا للأسعار السائدة. 


* العمالة والأجور: 


يتيح المشروع ٩‏ فرص عمل وذلك من خلال عمله بوردية وأحدة محددة 
بعدد ٥‏ عمال ماهرة › وعدد ۲ عمال مساعدين »› ومحاسب » بالإضافة إلى 
مدير للنظام و تبلغ قيمة الأجور السنوية للنظام ٤۹٠٠۰٠۰‏ دينار وفقا للبيانات 
التفصيلية بهذه الدراسة. 


هذا وقد تم إعداد دراسة الجدوى الموضح بياناتها بأعلاه وفقا لما تم 
الحصول عليه وما توافر لدي من بيانات سواء تم تقديمها من أصحاب 
المشروع » أو بما تم الاسترشاد به من بعض المشروعات القائمة › والتى 
تمارس مثل هذا النشاط » مع مراعاة ما يطرأ على المستوى العام للاسعار 
ومدى تأثر ذلك على التكلفة الفعلية. 


تقرير دراسة الجدوى 
الموضوع البيان 
# اسم المشروع : نظام إدارة بيع وشراء الهواتف . 


* النشاط : بيع وشراء الأجهزة الهاتفية . 


# ام الما قر كه الاتصعالات الاز دة 
* الموقع : اربد / وسط البلد / دوار البريد 


محلي 

توزيع الادوار 
المستودعات / مندوب مبيعات / مندوب مشتريات 
* رسم هندسي للمشروع 
* المشاكل التي تواجه المشروع : 
* التو صیيات ٠:‏ 
.١‏ عمل بروشور للمستخدمين حول كيفية التعامل مع 
النظام . 
العمل . 
البيئة الخارجية به . 
و تشمل التكاليف الثابتة و المتغيرة للمشروع و تقدر 
بمبلغ و قدره ۰ دینار أردني فقط لا غير 


الشكل (1.4) تقرير دراسة الجدوى الإقتصادية 


Decision 1able جدول القراراٽ‎ ** 


وسيلة تستخدم لإظهار كل الحالات التي يمكن أن تواجهها قرارت 
المنظمة › و تحديد العمل أو القرار التى يمكن أن يتخذ لكل حالة من تلك 
الحالات » ويمكن استخدام هذه الوسيلة لتوضيح حالات إتخاذ القرارات 
المعقدة عند بناء النظم و المشاريع المختلفة . و فيما يلي الاجراءات التي 
سوف تتبعها المنظمة في التعامل مع عملائها 


٠٠١ الموافقة على أمر الشراء إذا كان المبلغ إقل من أو يساوي‎ .١ 
. دینار‎ 

. الموافقة على البيع مع منح خصم قدره ٠‏ % إذا كانت قيمة الشراء 
أكبر من ٠٠١‏ و آقل من ٠٠١‏ بشرط أن لدى العميل إعتماد بنكي 
کاف . ٤‏ 
۳. الموافقة على البيع مع منح خصم قدره %٠١‏ إذا كانت قيمة الشراء 
أكبر من أو تساوي ٠٠١٠‏ بشرط أن يكون لدى العميل إعتماد بنكي 

كاف 


.٤‏ في الحالتين (۲.۳) إذا لم يكن هناك إعتماد بنكي كاف فإن أمر 
الشراء يعرض على مدير المبيعات . 


يمكن تمثيل القرارات السابقة بالجداول التالية : 


أمر الشراء أقل من ٠٠١‏ 4 
بین ۱۰۰و N N Y ٥۰۰‏ 
اعتماد بنکی NES N‏ 


الشكل (1.5) بناء الجدول 


أمر الشراء أقل من ٠٠١‏ 
بین ۱۰۰و ٥۰۰‏ 
قبول الشراء 


الشكل (1.6) تحديد القرارات 


أمر الشراء أقل من ٠٠١‏ 
بین ۱۰۰و ٥۰۰‏ 
قبول الشراء 


الشكل (1.7) الجدول القراارت النهائي 


** شجرة القر ار ات Decision ‘1ree‏ 

التي يمكن أن تتخذ في المنظمة › و تساعد أيضا على الاختيار بين العديد من 
المسارات و معرفة العمل في نهاية كل مسار » يمكن بنائها بالاعتماد على 
جدول القرارات السابق كما يلي : 


المو_افكة عتی مر الشر_ ۱ء 


طأب مواففة المدير 


الشكل (1.8) شجرة القرارات 


Data Flow Diagram (DFD) مخطط تدفق البيانات‎ ** 


عبارة عن مخطط رسومي يستخدم في وصف و عرض كيفية 
تدفق البيانات بين العمليات و الوظائف الأساسية في النظام ¢ ویستخدم 
من قبل محلل النظم في المراحل الأولية وذلك من أجل معرفة الوظائف 
الأساسية للنظام و كيفية تعامل هذه الوظائف مع البيانات › و معرفة 
البيانات التي تحتاجها كل وظيفة ومن أجل توثيق النظام . 


و يعتبر مخطط تدفق البيانات من أكثر الأدوات المستخدمة 
لتوثيق النظام » و ذلك لأنه أداة رسومية تصويرية و بالتالي فهو سهل 
الفهم و التعديل عند الحاجة › و لأنه يقوم بتوضيح الوظائف الأساسية 
للنظام و الإدارات التي تتعامل مع هذه الوظائف و يوضح الراوبط 
الداخلية للنظام . 


* من خلال مخطط تدفق البيانات نستطيع تبين ما يلي : 
.١‏ كيف يكون تدفق البيانات في النظام . 


۲ . أين يتم تشغيل البيانات في النظام . 
۳. أين يتم تخزين البيانات في النظام . 


Context ‘D1aq1a1 (1.9) الشكل‎ 


0 0١ 
A 
LLL 
00 


Invoice DSf Stock 


توب لپ ررر 


امب 


DFD Level 1 (1.10) الشكل‎ 


| DS f Purchases 


DFD Level 2 (1.11) الشكل‎ 


** نمو ذج الكينونات اdعںأقية Entity Relationship Model (E-R, Model)‏ 
يعتبر من أهم النماذج المستخدمة في تصميم مخطط قواعد البيانات 
العلائقة » فهو تحدم للتضميح الفا هيمى لتطبيقات قراغد البيانات. 


يتم إستخدامه لوصف قواعد البيانات و العلاقة بين هذه البيانات › وهنالك 
مفاهيم أساسية في نموذج الكينونات العلائقية وهي : 
.١‏ الكينونة و٤‏ : تمثل الجداول ٠‏ و الكينونة تمثل كائن له وجود مادي 
> مثل : طالب / سيارة / أو أي وجود معنوي مثل : الأقسام / المواد . 


. الصفة وا6٤٤‏ : و تمثل الأعمدة في الجداول » بمعنى أنها صفات 
الكائن . 


۳. العلاقات ومة/ى10۸٤م/ءR‏ : عبارة عن العلاقة التي يتم بواسطتها الربط 


نالرات و تدا العدقات ارما الى من ادا 
ربط المجموعات مع بعضها البعض . 
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E-R Model (1.12) الكل‎ 


* Customer Table 


Customer No Customer _ Name Address 


* Invoice Details Table 


Documents No | Document No | Supplier No | Phone No | PhoneModel No | Unit No | Quantity Amount | Profit Wasrage 


ا 
Invoice Header Table‏ * 


Documents _No Person Customer_No Remark Verify Warranty 


* Stock Table 


Document No Phone_No PhoneModel No Unit _No Quantity Balance 


* Supplier Table 


Supplier No Supplier Name Address 


* PhoneModel Table 


Phone_No PhoneModel No PhoneModel Name | Unit _ No ReOrdaer Iinterest Picture 


* Purchase Header Table 


Document No Remark Supplier No 


* Purchase Details Table 


Document No Phone No PhoneModel No Unit _ No Quantity Amount 


* Phone Table 


Phone No Phone Name 


* Unit Table 


Unit No Unit Descreption 


Mapping (1.13) الشكل‎ 


* Customer Table and Contains These Records: 


Description 
لإظهار رقم العميل‎ 
لإظهاراسم العميل‎ 

لإظهار عنوان العميل 

لإظهار رقم هاتف العميل 
لإظهار رقم فاكس العميل 
لإظهار إيميل العميل 


Data Type 
AutoNumber 
Text 
Text 
Text 
Text 
Text 


Field Name 


Customer No 
Customer Name 
Address 
Phone 
Fax 
E-Mail 


* Invoice_Header Table and Contains These Records: 


Description 
لإظهار رقم المستند‎ 
لإظهار التاريخ‎ 
لإظهار اسم الشخص‎ 
لإظهار رقم العميل‎ 
لإظهار أي ملاحظات‎ 
لإظهار الإعتماد‎ 
لإظهار الضمان‎ 


Data Type 
AutoNumber 
Text 
Text 
Number 
Text 
Yes/No 
Number 


Field Name 
Documents_No 
Date 
Person 
Customer_No 
Remark 
Verify 
Warranty 


* Phone Table and Contains These Records: 


Description 
لإظهار رقم الهاتف‎ 
لإظهار اسم الهاتف‎ 


Description 
لإظهار رقم الوحدة‎ 
لإظهار وصف الوحدة‎ 


Data Type 


AutoNumber 
Text 


Field Name 
Phone No 
Phone Name 


* Unit Table and Contains These Records: 


Data Type 


AutoNumber 
Text 


Field Name 
Unit No 
Unit Description 


* Invoice_Details Table and Contains These Records: 


Description 
لإظهار رقم المستند‎ 
لإظهار رقم الوثيقة‎ 
لإظهار رقم المزود‎ 
لإظهار رقم الهاتف‎ 

لإظهار رقم طراز الهاتف 
لإظهار رقم الوحدة 
لإظهار الكمية 

لإظهار السعر 

لإظهار الكمية 

لإظهار الربح 

لإظهار الخسارة 


Data Type 
Number 
Number 
Number 
Number 
Number 
Number 
Number 
Currency 
Currency 
Currency 
Currency 


Field Name 


Documents No 
Document No 
Supplier No 
Phone No 
PhoneModal No 
Unit No 
Quantity 

Rate 

Amount 

Profit 

Wastage 


* PhoneModel Table and Contains These Records: 


Description 
لإظهار رقم الهاتف‎ 
لإظهار رقم طراز الهاتف‎ 
لإظهار اسم طراز الهاتف‎ 
لإظهار رقم الوحدة‎ 
لإظهار إعادة الطلب‎ 
لإظهار الفائدة‎ 
لإظهار صورة الهاتف‎ 


Data Type 
Number 
AutoNumber 
Text 
Number 
Number 
Number 
Memo 


Field Name 
Phone_No 
PhoneModal_No 
PhoneModal_ Name 
Unit_No 
ReOrder 
Tinterest 
Picture 


* Purchase_Details Table and Contains These Records: 


Description 
لإظهار رقم الوثيقة‎ 
لإظهار رقم الهاتف‎ 

لإظهار رقم طراز الهاتف 
لإظهار رقم الوحدة 
لإظهار الكمية 

لإظهار السعر 

لإظهار إجمالي الشراء 


Data Type 
Number 
Number 
Number 
Number 
Number 
Currency 
Currency 


Field Name 
Document No 
Phone No 
PhoneModal No 
Unit_No 
Quantity 
Rate 
Amount 


* Purchase_Header Table and Contains These Records: 


Description 


لإظهار رقم الوثيقة 
لإظهار التاريخ 
لإظهار أي ملاحظات 
لإظهار الاعتماد 
لإظهار رقم المزود 


Data Type 
AutoNumber 
Date/Time 
Text 
Yes/No 
Number 


Field Name 
Document _ No 
Date 
Remark 
Verify 
Supplier _ No 


Description 
لإظهار رقم الوثيقة‎ 
لإظهار رقم الهاتف‎ 
لإظهار رقم طراز الهاتف‎ 
لإظهار رقم الوحدة‎ 
لإظهار الكمية‎ 
لإظهار السعر‎ 
لإظهار الكمية المتبقية‎ 


* Stock, Table and Contains These Records: 


Data Type 
Number 
Number 
Number 
Number 
Number 
Currency 
Number 


Field Name 
Document_ No 
Phone_No 
PhoneModal_No 
Unit No 
Quantity 
Rate 
Balance 


* Supplier Table and Contains These Records: 


Description 
لإظهار رقم المزود‎ 
لإظهار اسم المزود‎ 

لإظهار عنوان المزود 

لإظهار رقم هاتف المزود 
لإظهار رقم فاكس المزود 
لإظهار ايميل المزود 


Data Type 
AutoNumber 
Text 
Text 
Text 
Text 
Text 


Field Name 


Supplier No 
Supplier Name 
Address 

Phone 

Fax 

E-Mail 


* Permission Table and Contains These Records: 


Field Name Data Type Description 
No AutoNumber لإظهار الرقم التسلسلي‎ 
User_Name Text لإظهار اسم المستخدم‎ 
Password Text لإظهار كلمة المرور‎ 
Add Yes/N صلاحية الاضافة‎ 
Edit Yes/N صلاحية التعديل‎ 
Delete Yes/N صلاحية الحذف‎ 
Preview Yes/N صلاحية المعاينة‎ 
Verify Yes/N صلاحية الاعتماد‎ 
User Control Yes/N صلاحية لوحة التحكم‎ 
Information Yes/N صلاحية إعطاء المعلومات‎ 
Report Yes/N صلاحية التقارير‎ 
ReOrder Yes/N صلاحية إعادة الطلب‎ 
Phone Yes/N صلاحية الهاتف‎ 
PhoneModel Yes/N صلاحية طراز الهاتف‎ 
Unit Yes/N صلاحية الوحدة‎ 
Supplier Yes/N صلاحية المزودين‎ 
Customer Yes/N صلاحية العملاء‎ 
Sale Yes/N صلاحية البيع‎ 
Purchase Yes/N صلاحية الشراء‎ 


ce lolo©oleolooo ooo ooo oo 


Syste” Desig" تصمیم النظام‎ ** 


تأآتي عملية تصميم النظام بعد مرحلة تحليل النظام مباشرة › و تعتبر 
المخرجات الناتجة عن مرحلة التحليل هي مدخلات لمرحلة التصميم › و 
تعتبر مرحلة تصميم النظام عملية تخطيط للنظام الجديد إعتمادا عل 
مخرجات مرحلة التحليل . 


يقصد بعملية تصميم النظام تحديد الصورة العامة للنظام من خلال 
تحديد شكل الأجزاء و البرا مج المكونة للنظام بشكل رسومي بإستخدام 
ر ا ا ا ا » مثل 
تحديد شكل مخرجات النظام و شكل المدخلات من خلال تحديد متطلبات 
المخرجات و المدخلات ٠‏ و أيضا توضيح العلاقات بين النظم الفرعية »› و 
طريقة حفظ البيانات في النظام و كيفية إسترجاعها » و كيفية معالجة 
الببانات 


من خلال مرحلة التصميم يتم بناء النظام الأساسي على شكل نماذج 


و أشكال و رسومات توضح النظام العام » و كيفية تدفق البيانات في النظم 
الفرعية المكونة للنظام العام » و العمليات في كل نظام فرعي» و إنتقال 
تلك البيانات بين النظم الفرعية » و تحديد كيفية بناء النظام الجديد . 


و من خلال مرحلة التصميم يتم توضيح العمليات التي تتم من خلال 
الحاسوب (وهي العمليات المحوسبة أو المبرمجة) و العمليات شبه 
المبرمجة و العمليات غير المبرمجة (التي يقوم بها المستخدم يدوياً) . 


Data Base Design تٽlنlبll تصميم قاعدة‎ * 


بناءً على شكل مخطط الكينونات العلائقية تم تصميم قاعدة 
البيانات كما في الصور التالية : 


E customer 
Field Name Data Type 1 Description 
F cCustomer_No|______ |AutoNumber 
Customer_Name Text 
Address Text 
Phone Text 
Fax Text 
E-Mail Text 


Field Properties 
General Lookup 
Field Size Long Integer 
New Values Increment 
Format General Number 
Caption 
Indexed Yes [No Duplicates] 
Smart Tags A field name can be up to 64 characters long, 
Text Align General including spaces, Press Fi for help on field 
names, 


Customer ‘able (2.1) الشكل‎ 


Data Type Description 


Document_No Number 
Supplier_No Number 
Phone_No Number 
PhoneMoaodal_No Number 
Unit_No Number 
Quantity Number 
Rate Currency 
Amount Currency 
Profit Currency 
wastage Currency 
Field Properties 


General Lookup 

Field Size Long Integer 

Format 

Decimal Places to 

Input Mask 

Laption 

Default Value A field name can be up to û64 characters long, 
Validation Rule including spaces, Press F1 for help on field 
walidation Text ES 

Required Yes 

Indexed No 

Smart Tags 

Text Align General 


Invoice_Details 1able (2.2) الكل‎ 


Description 


A field name can be up to 64 characters long, 
including spaces, Press F1 for help on field 
names, 


Data Type 
AutoNumber 
Text 
Text 
Number 
Text 
Yes/No 
Number 


Field Properties 


Long Integer 
Increment 


Yes [No Duplicates] 


General 


Invoice_Header 1able (2.3) الشكل‎ 


Description 


A field name can be up to 64 characters long, 
including spaces, Press F1 for help on field 
names, 


Data Type 


Field Properties 


Text 


Lang Integer 


Increment 


Yes [No Duplicates] 


eneral 


Phone 1able (2.4) الشكل‎ 


E roce Header 


Documents _ No 


Date 

Person 
Customer_ No 
Remark 
Verify 
Warranty 


gpa 
General [Lookup| 
Field Size 

New Values 
Format 

Laption 

Indexed 

| (Smart Tags 

| Text Align 


_Phone_No| [Auton 


Phone_Name 


—- 
eneral (Lookup) 
Field Size 

| New Values 

| Format 

| Laption 
Indexed 
Smart Tags 
Text Align 


Data Type Description 


User Name 

Password 

elel 

Edit 

Delete 

Preview 

werify 

User Control Yes/No 

Information Yes/No 

Report Yes, No 

ReOrder Yes/fNO 

Phone Yeas/# No 

PhoneModal Yes/No 

Unit Yes/No 

Supplier Wesf No 

Customer Yes/No 

Sale Yas/ No 

Purchase Yes No 
Field Properties 


General Lookup 


Field Size Long Integer 

New Waluıes Increment 

Format 

Laption 

Indexed Yes [No Duplicates] 

Smart Tags A field name can be up to 64 characters long, 

Text Align General including spaces, Press F1 for help on field 
names. 


Permission ‘1able (2.5) الشكل‎ 


EE Phonekiodal 

ielName Data Type‏ ع 
_Phone_No|j |Number‏ 
PhoneModal_No AutoNumber‏ 
PhoneModal_ Name Text‏ 

Unit No Number 
ReOrder Number 
linterest Number 
Picture Memo 


Field Properties 


General Lookup 

Field Size Long Integer 

Format 

Decimal Places اراش‎ 

Input Mask 

Caption 

Default Value A field name can be up to 64 characters long, 
Validation Rule including spaces, Press F1 for help on field 
Validation Text EEE: 

Required Yes 

Indexed No 

Smart Tags 

Text Align General 


PhoneModel 7able (2.6) الشكل‎ 


E Purchase Details 
2 Data Type Description 


r N Number 


7 e Number 
# PhoneModal_No Number 
F Unit_ No Number 
Quantity Number 
Rate Currency 
Amount Currency 


Field Properties 


ceneral Lookup) 

Field Size Long Integer 

Format 

Decimal Places 0ھ‎ 

Input Mask 

Caption 

Default Value A field name can be up to 64 characters long, 
Validation Rule including spaces, Press Fl for help on field 
Validation Text mE 

Required Yes 

Indexed No 

Smart Tags 

Text Align General 


Purchase_Details Table (2.7) الشكل‎ 


E Purchase Header 
rield Data Type Description 
ETT AutoNumber 
Date Date/Time 
Remark Text 
Verify Yes/No 
Supplier_No Number 


Field Properties 


eneral Lookup) 


Field Size Lang Integer 

New Values Increment 

Format 

Laption 

Indexed Yes [No Duplicates] 
Smart Tags A field name can be up to 64 characters long, 


Text Align eneral including spaces, Press Fl for help on field 
names, 


Purchase_Header ‘1able (2.8) الشكل‎ 


Data Type Description 
Document_No Number 
Phone_No Number 
PhoneModal_No Number 
Unit_No Number 
dûuantity Number 
Rate Currency 
Balance Number 


Field Properties 
eneral Lookup 
Field Size Long Integer 
Format 
Decimal Places Lie) 
Input Mask 
Caption 
Default Value A field name can be Up to 64 characters long, 
Validation Rule including spaces, Press F1 for help on field 
Validation Text ames 
Required Yes 
Indexed No 
Smart Tags 
Text Align eneral 


Stock, 14ble (2.9) الشكل‎ 


E Supplier 

۴ Data Type Description 

F Supplier No AutoNumber 
Supplier_Name Text 
Address Text 
Phone Text 
Fax Text 
E-Mail Text 


Field Properties 


General Lookup 


Field Size Long Integer 

New Values Increment 

Format 

Laption 

Indexed Yes [No Duplicates] 

Smart Tags Ã field name can be up to 64 characters long, 

Text Align General including spaces, Press Fl for help on field 
names, 


Supplier 7able (2.10) الشكل‎ 


Data Type Description 


AutoNumber 
Text 


Field Properties 


Lang Integer 
Increment 


Yes [No Duplicates] 


A field name can be uıp to 64 characters long, 
General including spaces, Press F1 for help on field 


Namê, 


Unit ‘“74ble )2.11( الشكل‎ 


Tables 

Inyoice_Details 
Inyaice_Header 
Permission 
Phone 
PhaneModal 
Purchase_Details 
Purchase_Header 
Stock 


Supplier 


3 
E‏ 
E‏ 
E‏ 
ا 
ا 
ا 
ا 
ا 
ا 
ا 


Unit 


Unit_No 
Unit Description 


eneral Lookup 


Field Size 
New Values 
Format 
Laption 
Indexed 
Smart Tags 
Text Align 


Project 2012 Data Base 74ables (2.12) الشكل‎ 


EN 
f PhoneMlodal_No 
Phaneladal_Name) 
Û Unit No 1 
Redrder 
linterest 


| Picture 
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mm EC 
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Unit 


| FF Unto 
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E 
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F PhoneModal_N 
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Rate 
Amount 


ا اتك 
Document No‏ ¥ | 


urchase Header 
 Document_No | 
Date 
Remark 
Verify 


Supplier No 


Purcha 
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۴ Phane_Nlo 
¥ Phonellodal_ No 
F Unit No 
Quantity 
Rate 


| 


SuUpplier_ Hame 
Address 

Phane 

Fax 

E-Mail 


Sk 


Balance 


1L Madê _ | 


grrr 
oke petals 
1 Document_No 
۴ Supplier No 
۴ Phone_No 
YF Phonehlodal_No 
YF Unit No 
Quantity 
Rate 
Amount 
Prafit 
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fF Documents_No ۵ِ‏ اس 


س 


Ûate 

Person 
Customer_Nlo 
Remark 
Verify 


Warranty! 


Relation Shape Data Base 746les (2.13) الكل‎ 


34 Relationships 


Customer 
Custom * 
Custom | 
AOE: 
Phonê lg 


Managem 
ent 


Control 
Panel 


Informati 
on 


ReOrder 
Request 


PackUp 


S 


Phone 
Phone 
Model 


Supplier 


Customer 


Main 
Screen 


Invoices 


Invoices 


Purchase 
Invoices 


About Reports 
Progra 
Sales 
Reports 
Purchase 
Reports 


Stock 
Reports 


Graphical User Interfaces Desig (2.14) الكل‎ 


e e1 Syste" Desi" تصميم و برمجة النظام‎ * 


TRT‏ ا ا 
النظا 
م . 


ENLE— ODBC 


الادوات تعتبر حقيبة المبرمج التي لا يستغني عنها بأي حال من 
الأحوال » و هي عبارة عن برمجيات فرعية تقوم بعمل تأثير أو إجراء 
معين .و الأدوات تنقسم إلى أدوا ت ))0 ومكتبات ££ 0 وهي 
تخص مجال البرمجة الموجهة 00۶ هذا بشكل عام » و لكن بشكل 
خاص الأدوات التي سوف أقوم بإستخدامها هي 


1. Microsoft Common Dialog Control 6.0 (SP3) 

2. Microsoft FlexGrid Control 6.0 

3. Microsoft Hierarchical FlexGrid Control 6.0 (OCEDB) 
4. Microsoft Windows Common Control 6.0 (SP6) 

5S. Xtreme CommandBars ActiveX Control 10.4.2 

6. Xtreme SkinFrameWork ActiveX Control 10.4.2 


أما المكتبات التي سوف أستخدمها فهي كما يلي : 


1. Microsoft DAO 3.51 Object Library 
2. Microsoft Jet and Replication Object 2.6 Library 


ماذا تعرف عن Code]ocK,1ools‏ ؟ 


الكود جوك هي مجموعة من أدوات لتجميل القوائم و الواجهات › 
قام بتصميمها مجمو عة من المبرمجين الأجانب في مجال البرمجة 
الكائنية الموجهة ٠ 007P‏ و الحاصلين على شهادة خبرة من شركة 
Microsoft‏ العالمية كشهادة ©؟4)8 و غیرها . 


أدوات الكود جوك يتم إعدادها فقط عن طريق البرمجة (ومd1هC٤)‏ 
ولعل هذا من أحد الأسباب لتغاضي المبرمجين عنها لإستهلاك الوقت و 
الجهد في إعدادها » و لكن ثمرة التعب و الجهد ايست بقليلة تعطيك شكلا 
أنيقا و جذابا لمشروعك »› تجعل العملاء يتهافتون على برامجك و منتجاتك . 


لم تقتصر أدوات الكود جوك على تكنولوجيا 6.0 Visual Basic‏ 
فقط ولكن أيضا قام فريق عمل الأدوات بتصنيع إصدار يعمل في بيئة 
Net‏ . بلغتيھا Visua Basic e Visual C++‏ »۰ فهي أدوات مناسبة 
لكافة المبرمجين بمختلف خبراتهم و مختلف اللغات التي يعملون عليها . 


أما بالنسبة لي أنا فقد قمت بإستخدام أداتين من هذه الأدوات كما ذكر 
في أعلاه > و هذه الأداتين هما ۰ 


1. Xtreme CommandBars ActiveX Control 10.4.2 
2. Xtreme SkinTframeWork ActiveX Control 10.4.2 


وهي آدوات يتم إضافتها إلى المشروع . 


* كيفية إضافة الأدوات إلى المشروع 
قم بإتباع الصور لمعرفة كيفية إضافتها كما يلي : 


.١‏ من قائمة P٥٤‏ نختار مر ۶ئ۸ ])٥p0۸e‏ لیظھر لنا 


Campanents 
Controls | Designers Insertable Objects 


:-] VideoSoft vsFlex3 Controls + 
Active Setıp Control Library 3 
ActiveSkin 4,0 Type Library 

Adobe Acrobat 7.0 Browser Control Type Librar 
ataDictCtrl 

ataProgressBar Ctrl 

ataTrans 

ATLENtityPicker 1.0 Type Library 

AxBrowse 
C:PROGRA~1COMMON ~11Nera Lib\COVERE+ 
t:Program Files\Common Files Nokia Adapters 


Ci \WINDOWSIgystem32msconf. dll 2 
CWINDOWSgystem32\bdc, ocx ا‎ ____Bronse. | 


3 ل‎ 1 * | ° Selected Items Only 


:-] VideoSoft vsFlex3 Controls 
Location: C:WINDOWSleystem32WSFLEX3.,OCX 


الشکل (۳.۱) صندوق حوار وغNp0۸e۸٥)‏ 


۲. قم بالضغط على زر أمر ءوس,8 فيظهر صندوق حوار أخر 
كما في الشكل التالي : 


Add ActiveX Control 
Look in: | ğ codejock tools >| طط‎ 


Î Code Jock tools And Example 5 ReportControlocxr 
Û test [3) sShortcutBar.ocx 

Û Teals [8) skinFrameworleocx 
3 Ctalendar.ocr ا3ا‎ SuiteCtrls.ocx 

|) askPaneloce 


8 


File name: [KommandBars.ocs 
Files of type: (ActiveX Cartrals (ocr) - Cancel | 


Help 


Add ActiveX Control الشكل (۳.۲) صندوق حوار‎ 


۳. قم بتحديد الأداة ثم الضغط على زر ۸ء0p‏ ثم الضغط على زر 
pp‏ ثم زر )0 . 


. قم بتكرار العملية لإضافة الأداة الأخرى‎ .٤ 


Before Add Contro 


After Add Control 


DataReport 


Control 80x (".*) Jكشلا‎ 


Sess 
ii 


الشكل ).٤(‏ واجهة الانتظار 
تم التعديل على الخصائص التالية : 


Properties 
Property Name Value 

BorderStyle 2-Sizable 
StartUpPosition 2-CenterScreen 
Stretch True 
Picture Bitmap 
Enabled True 
Interval 20 
ProgressBar ProgressBar | - - 


Control Name 
Form FrmSplash 
Image Imagel 


Timer Timer1 


جدول )۳.١(‏ خصائص واجهة الانتظار 


.١‏ عند تشغيل البرنامج يتم إظهار هذا النموذج لفترة زمنية معينة 
. عند إنقضاء الفترة المحددة يتم إخفاء هذا النموذج و إظهار نموذج 
FrmLogin‏ . 


mM Project1 - FrmSplash (Code) 
Timerî ¥ | Timer 
Erirate Sub Timerl Timer () 


If ProgressBar. Value < 100 Then 


T 
ProgressBar. Yalue = ProgressBar. Yalue + ] 
End If 
If ProgressBar. Value = 100 Then 
Unload Me 
FrulLoqin . Show 
End If 


End Sub 


الشكل )۳.١(‏ برمجة واجهة الانتظار 


8 Tou ûre elcome in Login Window to System 


Please Insert Correct Ulserarme And Password 


LlserMame : 1 
Password : 


Uk Zancel 


الشكل (۷.) واجهة الدخول 


تم التعديل على الخصائص التالية : 


Properties 


Value 
Login 
2-CenterScreen 
False 
&H8000000E& 
0-None 
0-None 
True 
Bitmap 
True 
0-Transparnt 
You Are Welcome 
in Login Window 
to System 
True 
0-Transparnt 
Please Insert 
Correct UserName 
And Password 
True 
0-Transparnt 
UserName : 

True 
0-Transparnt 
Password : 

0 — LeftJustify 
0 —- LeftJustify 
* 


Ok 
Cancel 


عمل النموذج : 


Property Name 
Caption 
StartUpPosition 
ControlBOx 
BackColor 
BorderStyle 
BorderStyle 
Stretch 

Picture 
AutoSize 
BackStyle 


Caption 


AutoSize 
BackStyle 


Caption 


AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
Alignment 
Alignment 
PasswordChar 
Caption 
Caption 


الجدول (۳.۷) خصائص واجهة الدخول 


Name 


FrmLogin 


Picture1 


Imagel 


Label2 


Label3 


Label4 


txtUserName 


txtPassword 


cmdOK 


cmdCancel 


Control 


Form 


PictureBox 


Image 


Label 


Label 


TextBox 
TextBox 


CommandButton 
CommandButton 


يتم التأكد من اسم المستخدم المدخلة و كلمة المرور المدخلة إذا 
SS E eT‏ 


Fm Project1 - FrnLogin (Code) 


Option Explicit 
Public OE As Boolean 


Private Suk cmdûCancel Click () 


ORE = False 
End 
End Sub 
Private Sub cmaAOK Click ()} 
Error GoTo err 
If Trim (txtPassword . Text) 
GoTo er 
Else 
Call ConnectionDatabase 
If rs.State = adStateOpen Then rs.Close 
rs .Open "SELECT *™ FROM [Permission] WHERE [User Name]='"™ | 
& Trim {({txtUserName . Text] & "' AND [Password]="'™ &4 Trim (txtPassword . Text} 
& "I", db, adOpenStatic, adLockOpTtimaistic 
TIF rFs.RecordCount = 0 Then 
GoTo er: 
Else 
UserID = TtETUserName . Text 
UserNo = rs! [No] 
OK = True 
Me . Hide 
MDIForm1 . Show 
End If 
End If 
Exit Sub 


MsgBox "Error in Data , Please Check and Tray again 1", YTpCritical # YTbORONnNIY, "Login™ 
Call Form Load 

LxXTLUseErWName . SetFocus 

tETUserName .SelStart = û 

txEtUserName . SelLength = Len (Trim (txtUserName . Text) } 

Exit Sub 


MsgBox err. Description, vTbCritical, "Login™ 


Sub 


الشكل (۳.۸) برمجة واجهة الدخول/ الجزء الاول 


mm Project - FrmLogin (Code) 


[Form 


Private Sub Form Load() 


TtETUserName . Text 
| txtPassword .Text 


End Sub 
Private Sub txtPassword_ RKeyPress (KeyAscii As Integer) 
Tf KeyAscii = 13 Then 
RKeyAsci1 = 0 


SendKeys "{[TAB}"™ 
TE 


Private Sub tETUserName KeyPress (KeyAscii As Integer) 


IF RKeyAscii = 13 Then 
KeyAscii1i = Û 
SendKeys "{TAB}" 

End If 


End Sub 


الشكل (۳.۹) برمجة واجهة الدخول/ الجزء الثاني 


Information 
RE] Information About of Organization 


LIsing Information lnserted here to Yiew in invoices and reports , 30 you 
shuald insert correct information about of organization 


Urganalzation Name : 


Urgqanalzatian Address : | 


ا 
Save E it‏ 


الشكل )۳.٠١(‏ واجهة المعلومات 


Urganalzation Phare : 


Urganaization Fan : 


تم التعديل على الخصائص التالية : 


Properties 


Control Name 


Value 
Information 
2-Sizable 
False 
2 - CenterScreen 
&HS8000000E& 
0-None 
O0 — None 
True 
Bitmap 
True 
0 - Transparent 
Information About 
of Organization 
&H000000FF& 
True 
0 - Transparent 
Using Information 
Inserted here to view 
in invoices and 
reports , SO YOU 
shuold insert correct 
information about of 
organization 
&HOOFF0000& 
True 
0 - Transparent 
Organaization Name 


Property Name 
Caption 
BorderStyle 
ComtrolBox 
StartUpPosition 
BackColor 
BorderStyle 
BorderStyle 
Stretch 
Picture 
AutoSize 
BackStyle 


Caption 


ForeColor 
AutoSize 
BackStyle 


Caption 


ForeColor 
AutoSize 
BackStyle 


Caption 


FrmInforamtion 


Picture1 


Imagel 


Label1 


Label2 


Label3 


PictureBox 


Image 


True 

0 - Transparent 
Organaization 
Address : 

True 

0 - Transparent 
Organaization Phone 


True 

0 - Transparent 
Organaization Fax : 
0 — LeftJustify 
0 — LeftJustify 
0 — LeftJustify 
0 —- LeftJustify 
Save 

1 ¬ Graphical 
Bitmap 

Exit 

1 ¬ Graphical 
Bitmap 


عمل البرنامج : 


AutoSize 
BackStyle 
Caption 


AutoSize 
BackStyle 


Caption 


AutoSize 
BackStyle 
Caption 
Alignment 
Alignment 
Alignment 
Alignment 
Caption 
Style 
Picture 
Caption 
Style 
Picture 


Label4 


Label5 


Label6 
txtShop 
txtAddress 
txtPhone 
txtFax 


cmdSave 


cmdExit 


Label 
TextBox 
TextBox 
TextBox 
TextBox 


CommandButton 


CommandButton 


الجدول )۳.١١(‏ خصائص واجهة المعلومات 


. يتم تعبئة الحقول بالمعلومات اللازمة حول الشركة‎ .١ 
Rهٍعاءاعإ عند الضغط على زر عه يتم حفظ المعلومات في‎ .۲ 
. SaveSetting و ذلك عن طريق إستخدام‎ 


Project1 - Erminformation (Code)‏ ا 


Frivate Sub CmdAExit Clickl) 
Unload Me 

_Ena 5b 

Private Suk cmdûSave Click () 


SaveSetting APP . Title, "Setting", "ShopName™, tTtETShOop .Text 

SaveSetting App. Title, "Setting", "Address", txtAQdress. Text 

SaveSetting App. Title, "Setting", "Phone", txtPhone . Text 

SaveSetting App .Title, "Setting", "Fax", tEtFaz. Text 

MsgBox "The Saving Operation has been Succesfully '!1", vhbInformation + vbORONly, "Info™ 
Call Form Load 


End Sub 


Private Sub Form Load () 
EETShHûN a TE = ow 
EETAddress . Text = ® 
txtPhone . Tet = 
ELF. Text = we 


الشكل )۳.١٠١(‏ برمجة واجهة المعلومات 


About Me 
Management Sales and Purchases Phones System 
Version : 1.0 


Designer and Programmer : Abed Al_Kareem Abuınemr 
Jordan "1 Irbid 

Phone : OOIGATEESOTBIG 

E_Mail;: A.Abunemer@Hotmail.com 


الشكل )۳.٠١(‏ واجهة حول المبرمج 


تم التعديل على الخصائص التالية : 


Value 
About Me 
1 - FixedSingle 
2 - CenterScreen 
0 — None 
True 
Bitmap 
0 — LeftJustify 
True 
0 - Transparent 
Management Sales and 
Purchases Phones System 
0 — LeftJustify 
True 


Version : 1.0 

0 - LeftJustify 

True 

0 - Transparent 

Designer and Programmer : 
Abed Al Kareem Abunemr 
0 — LeftJustify 

True 

0 - Transparent 

Jordan \ Irbid 

0 —- LeftJustify 

True 

0 - Transparent 

Phone : 00962788507656 
0 — LeftJustify 

True 

0 - Transparent 

E Mail: 

0 — LeftJustify 

True 

0 - Transparent 


A.Abunemer(@Hotmail.com 
0 — None 


Ok 


Properties 


Property Name 
Caption 
ControlBOX 
StartUpPosition 
BorderStyle 
Stretch 
Picture 
Alignment 
AutoSize 
BackStyle 


Caption 


Alignment 
AutoSize 


BackStyle 0 - Transparent 


Caption 
Alignment 
AutoSize 
BackStyle 


Caption 


Alignment 
AutoSize 
BackStyle 
Caption 
Alignment 
AutoSize 
BackStyle 
Caption 
Alignment 
AutoSize 
BackStyle 
Caption 
Alignment 
AutoSize 
BackStyle 
Caption 
BorderStyle 


Caption 


Name 


FrmAbout 


Imagel 


Label1 


Label2 


Label7 


Label5 


Label4 


Label6 


Frame1l 
cmdOk 


الجدول )۳.٠١(‏ خصائنص واجهة حول المبرمج 


Control 


Form 


Image 


Label 


Frame 
CommandBu 
tton 


عمل البرنامج : 


.١‏ عند مرور المؤشر في الايميل يتم تغيير شكل المؤشر الى شكل 


نك 


mi Project1 - FrmAbout (Code) EOE 


CmcdlOk <| Click ¥ 


Private Sub cmdûR Click () 
Unload Me 


End Sub 


الشكل )۳.٠١(‏ برمجة واجهة حول المبرمج 


Back Up 
چ‎ Lreate Back Llp 


Tou Can Mack True Copy Back Up to Data Base By This Window 
Details Data Base 


Uata Base Name: Project AJ 2.mdb 
L:"araduatian Project ZU A Phone SP System 
Lreate Dale : 13-30-212 0:28 


S24 288B pte 


الشكل )۳.١١(‏ واجهة إنشاء نسخة إحتياطية 


تم التعديل على الخصائص التالية : 


Properties 


Value 
Back Up 
2 - Sizable 
False 
2 - CenterScreen 
&H8000000E& 
0-None 
0 None 
True 
Bitmap 
True 
0 - Transparent 
Create Back Up 
True 
0 - Transparent 
You Can Mack 
True Copy Back 
Up to Data Base 
By This Window 
&HOOFFO0000& 
Details Data Base 
1 - Fixed Single 
True 
0 - Transparent 
Data Base Name : 
&HOOFFO0000& 
True 
0 - Transparent 
Path : 
&HOOFFO0000& 
True 
0 - Transparent 
Create Date : 
&HOOFFO0000& 
True 
0 - Transparent 
Size : 
&HOOFFO0000& 
0 — LeftJustify 
&H8000000F& 
0-None 
0 — LeftJustify 
&H8000000F& 
0-None 


Property Name 
Caption 
BorderStyle 
ControlBoOx 
StartUpPosition 
BackColor 
BorderStyle 
BorderStyle 
Stretch 

Picture 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 


Caption 


ForeColor 
Caption 
BorderStyle 
AutoSize 
BackStyle 
Caption 
ForeColor 
AutoSize 
BackStyle 
Caption 
ForeColor 
AutoSize 
BackStyle 
Caption 
ForeColor 
AutoSize 
BackStyle 
Caption 
ForeColor 
Alignment 
BackColor 
BorderStyle 
Alignment 
BackColor 
BorderStyle 


Name 


FrmBackUp 


Picture1 


Imagel 


Label1 


Label2 


Frame1 


Label3 


Label4 


Label5 


Label6 


txtDatabasename 


Control 


PicturerBox 


Image 


Label 


TextBox 


TextBox 


0 — LeftJustify 
&H8000000F& 
0-None 

0 — LeftJustify 
&H8000000F& 
0-None 

Create Back Up 
1 - Graphical 
Bitmap 

Exit 

1 - Graphical 
Bitmap 

False 


عمل البرنامج : 


Alignment 
BackColor 
BorderStyle 
Alignment 
BackColor 
BorderStyle 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Visible 


txtCreateDate 


t{xtSize 


CmdCreate 


CmdExit 


Filel 


TextBox 


TextBox 


CommandButton 


CommandButton 


FileListBOox 


الجدول )۳.٠۷(‏ خصائص واجهة إنشاء نسخة إحتياطية 


.١‏ عند تحميل النموذج يتم تعبئة الحقول بالمعلومات اللازمة لكل 


حقل 


۲. عند الضغط على زر مل )ع8 مaع€۲‏ يتم عمل نسخة 


إحتياطية من قاعدة البيانات . 


۳. عند الضغط على زر ٤×1٤‏ يتم إخفاء النموذج . 


Fm ProjeclT - FrinmnBackUp {f Code) 


M HHMBBEHO f 


Then 


actDatabass "Data oa " & App Path & 
ource=™ & App Path & ™X\ clue", ” 


The BackUp Operation Has been SuccesFully™, 
<sbhITInFormation 4 wbhOKOnNIY, "Masseage™ 


End Sub 


EE 


الشكل )۳.٠۸(‏ برمجة واجهة إنشاء نسخة إحتياطية / الجزء الاول 


mH pProject1 - FrmBackUp (Code) EME) 


cmdExit +*| Click ¥ 


Private ŠöSuk CmdExit Click () 


Set je = Nothing 
Unload Me 


End Sub 
Private Sub Form Load () 


DEName = "Project 2012 .mdb" 

If Dir (App .Path & "\Backup", vbDirectory) = "" Then MHkDir App.Path & "Backup" 
File1.Path = App .Path & "\Backup"™ 

Tf Dîir (App.Path & "\" & DBName} = "" Then Exit Sub 

TtxTtDatabasename . Text = DEBName 

TtETPathH . Text = App. Path 

txtCreateDate . Text = FileDateTime (App. Path & "\" & DBName] 

txtSize.Text = FileLen (App .Path & "\" & DEBNamej} & "Byte" 


End Sub 


f 


الشكل )۳.٠۹(‏ برمجة واجهة إنشاء نسخة إحتياطية / الجزء الثاني 


Control Panel User 
E Control Panel lser Windonwy 


Tou Lan in this window Giving Correct Permission to any 
user in his border. 


FH uarnber | Clear Data Waw lsers 


Userame [admin Search: | 


a EOEET 
Permission IR 


alal # Edit I Delete 


Yierfy I Previa 


Information I Control Panel 


ReUrder I# Reports 


< 


Phanea I Purchases 


Phone adel i Sales 


< 


Units 


ك 


Supplier 


< 


Luustomer 


2 e 


الشكل )۳.١۹(‏ واجهة لوحة التحكم 


تم التعديل على الخصائص التالية : 


Properties 


Value 
Control Panel User 
2-Sizable 
False 
2 —- CenterScreen 
&H8000000E& 
0-None 
0 — None 
True 
Bitmap 
True 
0 - Transparent 
Control Panel User 
Window 
&H000000FF& 
True 
0 - Transparent 
You Can in this 
window Giving 
Correct Permission 
to any user in his 
border. 
&HOOFFO0000& 
True 
0 - Transparent 
Number 
True 
0 - Transparent 
UserName 
True 
0 - Transparent 
Password 
True 
0 - Transparent 
Search : 
&HOOFFO0000& 
0 - LeftJustify 
&H8000000F& 
0 —- LeftJustify 
0 - LeftJustify 
0 — LeftJustify 
0 - LeftJustify 
Add 
0 — LeftJustify 


Property Name 
Caption 
BorderStyle 
ComtrolBox 
StartUpPosition 
BackColor 
BorderStyle 
BorderStyle 
Stretch 

Picture 
AutoSize 
BackStyle 


Caption 


ForeColor 
AutoSize 
BackStyle 


Caption 


ForeColor 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
ForeColor 
Alignment 
BackColor 
Alignment 
Alignment 
Alignment 
Alignment 
Caption 
Alignment 


Name 


FrmControlPanel 


Picture1 


Imagel 


Label1 


Label2 


Label3 


Label4 


Label5 


Label6 


txtNo 


txtUserID 
txtPassword 
txtFind 


chkAdd 
chkEdit 


Control 


PictureBox 


Image 


TextBox 


TextBox 
TextBox 
TextBox 


CheckBox 
CheckBox 


Edit 

0 — LeftJustify 
Delete 

0 — LeftJustify 
Verify 

0 — LeftJustify 
Perview 

0 — LeftJustify 
Information 

0 — LeftJustify 
Control Panel 
0 — LeftJustify 
ReOrder 

0 — LeftJustify 
Reports 

0 — LeftJustify 
Phone 

0 — LeftJustify 
Purchases 

0 - LeftJustify 
Phone Model 
0 - LeftJustify 
Sales 

0 - LeftJustify 
Units 

0 - LeftJustify 
Supplier 

0 — LeftJustify 
Customer 
Permission 
View Users 
Save 

1 - Graphical 
Bitmap 

Delete 

1 - Graphical 
Bitmap 

Exit 

1 ¬ Graphical 
Bitmap 

Clear Data 

Go 


Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Alignment 
Caption 
Caption 
Caption 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Caption 


الجدول ).۲١(‏ خصائص واجهة لوحة التحكم 


chkDelete 
chkVerify 
chkPreview 
chkInformation 
chkUserControl 
chkReOrder 
chkReport 
chkPhone 
chkPurchase 
chkPhoneModal 
chkSale 
chkUnit 
chkSupplier 


chkCustomer 


Framel 
Frame2 


cmdSave 


cmbDelete 


cmdExit 


cmbClear 
cmbGo 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


CheckBox 


Frame 
Frame 


CommandButton 


CommandButton 


CommandButton 


CommandButton 
CommandButton 


عمل البرنامج : 


1. عند النقر المزدوج على اسم المستخدم في الشبكة يتم إظهار كافة 
البيانات في الصناديق المخصصة وكافة الصلاحيات التي يمتلكها 

۳. عند الضغط على زر ٥۷ج‏ يتم حفظ المستخدم مع الصلاحيات 
في قاعدة البيانات 

.٤‏ عند الضغط على زر ‰6 يتم حذف المستخدم مع 
الصلاحيات 

. عند الضغط على زر )8×1 يتم إخفاء النموذج‎ .٥ 


Fm ProjectI - FrmControlPanel (Code) 


|embcClear 


Private Sub cmbClear Click () 


tEEtENag = ww 
txtLUserID = 
txtPassword 
chkAdAd . Value 
chkEdit .Value = 
chkDelete. Value 
chkVerify . Value 
chkPreview . Value 
chkPhone . Value = 0 
chkPhoneModal. Value 
chkUnit. Value = û 
chkSupplier . Value 
chkCustomer .Value 
chkSale. Value = û 
chkPurchase . Value 
chkUserControl. Value 
chkInformation . Value 
chkReport .Value = û0 
chkReOrder .Value = 0 


End sub 
Private sub cmbDelete Click () 


LTE EEE -TeKT = "" Then 
MsgBox "Please Enter The User Name !", 
YDCrFITiCal1l + ¥YpDOKONIY, "Control Panel™ 
MSHFlexGrid1 . SetFocus 
Exit Sub 
End IF 
If txtLNo .Text = 1 Then 
MsgBox "Sory, You Don’t Have To Deleting The Administrator 1! 
wbCritical + vpbOKOnly, "Control Panel™ 
Exit Sub 
End If 
db .Execute "DELETE * FROM [Permission] WHERE [No] & Val (txtNo . Text) 
MsqgBo= "The Delete Operation Has been succesfully ! ", 
wbInfornmation + ¥bORKOnNnly, "Control Panel™ 
Call cmbClear_ Click 


End Sub 


2 
الشكل )۳.۲١(‏ برمجة واجهة لوحة التحكم/الجزء الاول 


mM Project1 - FrmControlPanel (Code) 


5 [Click 


IE pi. State 

pt. Open "SEL 0 [P ] WHERE [User Name] LIRE 
& Trin (txtFin ١ 4 adOpenStatic, adLockOptimistic 
Set MSHFlexzGrid1.DataSöurce 

MSHFlexGrid1.Co 

MSHFlex( 

MSHFlex( 

MSHFlexGrid1.ColAlignment (0) 


Private Sub CmdExit Click) 


Unlöad Me 


Fm Project1 - FrmControlPanel (Code) 


Private Sub Form Load () 


Call ConnectionDatabase 

If rs.State = adStateOpen Then rs.Close 

rs .Open "SELECT [No], [User Name] FROM [Permission]"™, 
db, adOpenStatic, adLockReadOnly 

Set MSHFlexGrid1 .DataSource = rs 
MSHFlexGrid1.ColWidth (O0) = 1000 
MHSHFlexGrid1.ColWidth (1} = 2200 
MSHFlexGrid1.ColAlignmentFixed(0) = 
MSHFlexGrid1.ColAalignment (0) 1 


End Sub 
Private Sub MSHFlexGrid1_ DblClick (0) 


If MSHFlexGrid1.Row = O0 Then Exit Sub 
TEXTNoO . Text = MSHFlexGrid1l. TextMatrizx (MSHFlexGrid1.Row, 0) 
If rs.State = adStateOpen Then rs.Close 
r5.O0pen "SELECT * FROM [Permission] WHERE [No]=" & Trin (txtNo. Text), 
db, adûpenStatic, adLockReadOnly 
With rs 
tEtUseErID. Text !' [User _ Name] 
tXTPasswoOrd.Text = 1! [Password] 
Tf ! [Ada] True Then chkAdd.Value = 1 Else chkAdd.Value = O0 
If !"[Edit<e] True Then chkEdit.Value = 1 Else chkEdit.Yalue = 0Û 
If !1[Delete] = True Then chkDelete. Value = 1 Else chkDelete. Value = 0 
ITE ![Yerîify] = ue Then chkVerify.Value = 1] Else chkVerify.Value = Û 
If ![Preview] = True Then chkPreviewuw.Value = 1 Else chkPreview . Value = O 
If [User Control] = True Then chkUserControl. Value = 1 Else chkUserControl. Value 
LE [Information] = True Then chkInformation. Value = 1 Else chkInfornmation . Value 
If [Report] = True Then chkReport. Value = 1 Else chkReport. Value = 0 
EÊ [Reorder] = True Then chkEReOrder.Value = 1] Else chkReOrder .Value = O0 
E [Phone] = True Then chkPhone. Value = 1 Else chkPhone.Value = 0 
If [FPhoneModal] = True Then chkPhoneModal.Value = 1 Else chkPhoneModal .Yalue = 0 


ITE 
If 
TE 
If 
End Witr 


[Customer] = True en chkCustomer. Value = 1 Else chkCustomer . Value = 
[Unit] = True Then chkUnit. Value = 1 Else chkUnit.Value = 0 
[Purchase] = True Then chkPurchase. Value = 1 Else chkPurchase. Value 
[Sale] = True Then chk3Sale . Value = 1 Else chkSale .Yalue = 0Û 


1 
1 
1 
1 
1 
1 
If ! [Supplier] = True en chkSupplier.Value = 1 Else chkSupplier.Value = 
1 
1 
1 
1 
h 


End Sub 


الشكل (۳.۲۳) برمجة واجهة لوحة التحكم/الجزء الثالث 


Fm Project1 - FrrnGontrolPumel (Code) 


cmd Sawe: 


mM (EETEPassSy 
MsgBox 


8 


adStateop 
ROE 


۳ 
0 HA QOH 
i 0 


HM MH F 
OHM O 


MsgBox "Please Enter The User Name With a New Passwor 
woOCrTFITtIcCcaAL1l + ¥pOKONILY, "Control Panel™ 

tKtUseErID. SetFocus 

Exit Sub 

TE 


a1 (txENa . Text) = 1 Then 
TÊ Fra. State = aAStateOpen Then Fs.Close 
Fs . Open "SELECT * FROM [Permission] WHERE 1 Val (TETNO .TerTt} „“ 
db, adOpenStatic, adLockPessaãimãstic 
With Fs 
1 [Password] = TEIN (tXtEPasswOoOrd . Text } 
Update 
End With 
MsgBox "The Operation has been Succesfullw 
wobInfFformation + vpbOKOnNnIyY, "Control Panel™ 
Exit S5ub 
End If 
TLE rFrs.State = aAStateOpen Then Fs Close 
Fs. Open "SELECT * FROM [Permission] WHERE [No] & Wal (txtNo . Text) „ 
db”, adCGpenStatic, adLocGkPessimistic 
With rs 
[User Name] = Trim (txtUserID .Text) 
[Password] = Trim (txtPassword . Text) 
[ada] = chkadd . value 
[Edict] = chkEdit . Value 
[Delete] = chrFDelete Value 
[Verify] = chkVerify .Value 
[Preview] = chkPreview . Value 
[User Control] = cGhkUserControl . Value 
[Information] = chkITnfFformaTtion .- Value 
[Report ] chkReport . Value 
[ReEOrFder] = chkReOrder .Talue 
[Phone] = chkPhone . Value 
[PhoneModal] = chkKPhoneModal . Value 
[Unit] = chEUniT Value 
[Supplier] chkSupplier . Value 
[Customer ] chkCustomer .Walue 
[Purchase ] chEPurcGhase . Value 
[Sale] = chkSale . Value 
. Update 
End With 


End If 

HsgBox "The Gperation has been Successfully !", | 

ybInformation + vbMHasgBOoXRight + vbMsGBOXRtIReading, "Control Panel" 
Call cmbClear Click 

Call Form Load 

Exit 1b 


MsgBox err. Description, YbCritical, "Control Panel" 


End sub 


الشكل )۳.۲٤(‏ برمجة واجهة لوحة التحكم/الجزء الرابع 


Fm Project1 - FrmControlPanel (Code) 


Private Sub txtFind Change (} 
Call cmbGo Click 


End Sub 
ااه‎ 
برمجة واجهة لوحة التحكم/الجزء الخامس‎ ).٠١( الشكل‎ 


Customer 


gû Customer Window 
Tau can in this window ik insert all data about of customer such a3 
name" address " phone ", E-mail „ alo pou can Yiewing all custarmer be 
you selected in the network. 


Lustormer Murmber n 
Lustomer Mame (Ammar 
: Search : G0 
Address rrbid 
Fas |.TEoAVAAeE 
E-Mail (Anwar @Gmail,com 


E" 
3 
ا‎ Clear Data 


Preview 


الشكل )۳.۲١(‏ واجهة العملاء 


تم التعديل على الخصائص التالية : 


Properties 


Value 


Customer 
2-Sizable 

False 
&H8000000E& 
0-None 

0 — None 

True 

Bitmap 

True 

0 - Transparent 
Customer Window 
&H000000FF& 
True 

0 - Transparent 
You can in this 
window it insert 
all data about of 
customer such as 
name! address \ 
phone \ E-mail , 
also you can 
viewing all 
customer be you 
selected in the 
network 
&HOOFFO0000& 
True 

0 - Transparent 
Customer Number 
True 

0 - Transparent 
Customer Name 
True 

0 - Transparent 
Address 

True 

0 - Transparent 
Phone 

True 

0 - Transparent 
Fax 

True 

0 - Transparent 
E-Mail 

0 — LeftJustify 
&H8000000F& 


Property 

Name 
Caption 
BorderStyle 
ComtrolBox 
BackColor 
BorderStyle 
BorderStyle 
Stretch 
Picture 
AutoSize 
BackStyle 
Caption 
ForeColor 
AutoSize 
BackStyle 


Caption 


ForeColor 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
Alignment 
BackColor 


Name 


FrmClients 


Picture1 


Imagel 


Label2 


Label3 


Label4 


Label5 


Label6 


Label7 


Label8 


txtCustomerNoO 


Control 


Form 


PictureBox 


Image 


Label 


Label 


Label 


Label 


Label 


Label 


TextBox 


BorderStyle 1 - Fixed Single 
Text Auto Number 
TextBox txtCustomerName | Alignment 0 - LeftJustify 
TextBox txtAddress Alignment 0 — LeftJustify 
TextBox txtPhone Alignment 0 - LeftJustify 
TextBox txtFax Alignment 0 - LeftJustify 
TextBox txtEMail Alignment 0 - LeftJustify 
TextBox txtFind Alignment 0 — LeftJustify 
Caption Save 
CommandButton cmdSave Style 1 - Graphical 
Picture Bitmap 

Caption Delete 
CommandButton cmdDelete Style 1 ¬ Graphical 
Picture Bitmap 

Caption Preview 
CommandButton cmdReport Style 1 - Graphical 
Picture Bitmap 

Caption Exit 
CommandButton cmdExit Style 1 - Graphical 
Picture Bitmap 

Caption Clear Data 
CommandButton cmdClear Style 1 ¬ Graphical 
Picture Bitmap 
CommandButton cmdFind Caption Go 

Caption View 
BorderStyle 1 - Fixed Single 
Frame Frame2 BorderStyle 1 - Fixed Single 
AutoSize True 

Label Label9 BackStyle 0 - Transparent 
Caption Search : 


Frame Fram1l 


الشكل (۳.۲۷) خصائنص واجهة العملاء 
عمل النموذج 

. عند الضغط على زر أمر ءسهك يتم حفظ العميل الجديد في قاعدة 
البيانات . 

۳. عند الضغط على زر أمر ءء/ء0 يتم حذف العميل الذي اختیاره 
من الشبكة . 

٤‏ . عند الضغط على زر أمر سعاسء/ يتم عمل تقرير بكافة العملاء 

. عند الضغط على زر أمر هاه ۲ء يتم تفريغ جميع الحقول 

۷. عند الضغط بالنقر المزدوج على العميل في الشبكة يتم إظهاره 
في الحقول . 


mi Praject1 - frmClients (Code) SEE 


Private Sub Form Load (} 


Call ConnectionDatabase 

If pt.State = adStateOpen Then pt.Close 

pPt.Open "[Customer]", db, adOpenStatic, adLockOptimistic 
Call MSHFlexgridAlignment 

tEtCustomerNo. Text = "Auto Number" 

tEtCustomerName . Text = "r" 

txtAddress . Text = "" 

txtPhone . Text = 

tEtFazx . Text = 

tETEMai 1 . Text 


Sub MSHFlexgridAlignment ( ) 


MSHFlexGrid1. Clear 

MSHFlexGrid1.Rows = 2 

Set MSHFlexGrid1.DataSource = pt 
MSHFlexGrid1.Cols = 2 
MSHFlexGrid1.TextMatrizx (0, 0) "Number™ 
MSHFlexGridl. TextMatrizx (O0, 1)} = "Customer Name" 
MSHFlexGrid1.ColWidth (O0) = 650 
MSHFlexGrid1.ColWidth (1) 2800 
MSHFlexGrid1.ColAlignment (O0) = 1 
MSHFlexGrid1.ColAlignmentFizxed (0) 


الشكل (۳.۲۸) برمجة واجهة العملاء/ الجزء الاول 


mi Project1 - frmClients (Code) 
MSHFlexGridl1 5 [DbIClick 


Private Sub MSHFlexGrid1 Dbl1Click () 


If MSHFlexGrid1.Row = 0 Then Exit Sub 
TtETCustomerNo . Text = MSHFlexGrid1.TextMatrizx (MSHFlexGrid1 .Row, 0) 
Call ConnectionDatabase 
If rs3.S5tate = adStateÛOpen Then rcs.Close 
rs .Open "SELECT * FROM [Customer] WHERE [Customer Ho] =" & 
Val (txtCustomerNo. Text) & "", db, adOpenStatic, adLockOptimistic 
If rs.RecordCount <> O0 Then 
txtECustomerName . Text = rs! [Customer Name] 
tEtTAddress. Text = rs! [Addres3] 
txtPhone . Text = rs! [Phone] 
txtFax. Text = r3! [Fax] 
tTETEMail.Text = rs! [E-Mail] 
End If 


End Sub 
Private Sub txtFind Change () 
Call cmûFind Click 


End Sub 


ll 1 


الشكل (۳.۲۹) برمجة واجهة العملاء/ الجزء الثاني 


mi Project1 - frmClients (Code) 


cmadReport ¥| (Click چ‎ 


کد 


Private Suk CmdExit Click () 
Unload Me 

End Sub 

Private Sub cmdFind Click () 


If pt.State = adStateûÛpen Then pt.Close 

Ppt. Open "SELECT * FROM [Customer] WHERE [Customer Name] LIRE '$" £ Trim (txtFind.Text) & | 
"$'", db, adOpenStatic, adLockOptimistic 

Call MSHFlexgridAlignment 


End Sub 
Private Sub cmdReport Click [) 


If U5.State = adStateOpen Then U5.Cl1aose 
U5.Open "SELECT * FROM [Permission] WHERE [No]=" & UserNo, db, adûpenStatic, adLockReadOnly 
If US5.RecordCount = Û0 Then 
HsgBox "ou Don't Have Permission, Please Call Managment !", | 
ybCritical + vbORKOnly, "Masseage" 
Exit Sub 
Else 
If US! [Preview] = False Then 
MsgBox "Iou Don't Have Permission, Please Call Managment 
ybCritical + ¥EOKOnly, "Hasseage"™ 
Exit Sub 
End If 
End If 
If pt.State = adStateClosed Then | 
pt .Gpen "[Cusatanmer]", db, adûpenStatic, adLaockReadûnly 
Set rptCustomer . DataSource = pt 
rptCustomer . Show 


End Suk 


le = 


الشكل )۳.١١(‏ برمجة واجهة العملاء/ الجزء الثالث 


FM Project - frmClients (Code) | 


cmd Save ¥) (Click ¥ 


te Suk cmûSave Click () 


txtCustomerNo. Text} Th 
Trin (txtCustomerName. Text) = "" Then 
1", #BCEitical + FBOROnNIy, "Customer" 


Then 


jX "You Don't Have Permission, Please Call Managment 
Critical + ¥pbORKOnlIy, "Hasszeage" 


=I FF 
e 


adLockOptimistic 


Et, adLockEÛOpEimistic 


. AddNew 


! [Customer Name] = Trin (txtCustomerName . Text) 
txtAddress . Text) 


Address] = Trir 
txtEPhone . Text ) 


xX. Text] 


[Fhone] = Trin ( 


| 
# 
[Fax] = Trin (txtFa 
[E-Mail] = Trim (txXEEMai1.Text) 


. Update 


With 


الشكل )۳.١١(‏ برمجة واجهة العملاء/ الجزء الرابع 


MsgBox "The Operation save has been Successfully 1" 
wbInformation + vbOKOnly, "Save" 
Call Form Load 
Else 
MsgBox "This Customer Data Entered in Anthor Time , Please Check Data !", 
vbCritical + ¥YbOKOnly, "Customer™ 
Call Form Load 
tztCustomerName . SetFocus 
End If 
End If 
End If 
Else 
If MsgBoz ("Do You Want To Edit Customer Tata ?", vbûuestion + vbIYesNoCancel, 
"Customer™") = vbhYes Then 
If U5.State = adStateOpen Then US.Claose 
US.Open "SELECT * FROM [Permission] WHERE [No]=" & UserNo, db, adOpenStatiĞc, 
adLockReadOnly 
If U5.RecordCount = 0 Then 


r 


MsgBox "You Don't Have Permission, Please Call Managment !", 
wbCritical + vbMsgBoxRtI1Reading + vbMsgBoxXRight, 
"Managment Sales & Purchase System" 
Else 
If US! [Edit] = False Then 
MsgBox "You Don't Have Permission, Please Call Managment !"™ 
vbCritical + vbMsgBoxRtIReading + vbMsgBoOXRight, 
"Managment Sales & Purchase System™ 
Exit Sub 
End If 
End If 
If rs.State = adStateOpen Then rs.Close 
rs .Open "SELECT * FROM [Customer] WHERE [Customer No] =" | 
& txtCustomerNo, db, adOpenKeyset, adLockOptimistic 
h rs 
! [Customer Name] = Trim (txtCustomerName . Text) 
1 [Address] = Trin (txtAddress . Text } 
1 [Phone] = Trin (tztPhone . Text) 
1 [Fax] = Trin (txtFazx .Text] 
1! [E-Mail] = Trim (tETEMail . Text) 
. Update 
End With 
MsgBox " The Operation Succesfully ", vbInformation + vbOKOnly, "Save" 
Call Form Load 


[End If 
End If 
Exit Sub 


۴ 


HsgEox err, Description & "!'", ¥bCritical, "Customer" 
Call Farm Load 


End Sub 


الشكل (۳.۳۲) برمجة واجهة العملاء/ الجزء الخامس 


Phone Windowy‏ چ 


Tou can in this window , Insert all data about of FPhones arme buildirng 
on Company Maker such as wring nokia „, samsong 


Phone Number : 


Phone Marne : o Search : ابا]ا]‎ E 


Prewiey 


الشكل (۳.۳۳) واجهة الهواتف 


تم التعديل على الخصائص التالية : 


Properties 


Control e Property Name Value 


Phone 

2-Sizable 

False 

2 —- CenterScreen 
&H8000000E& 
0-None 

0 — None 

True 

Bitmap 

True 

0 - Transparent 
Phone Window 
&H000000FF& 
True 

0 - Transparent 
You can in this .... 
&HOOFFO0000& 
True 

0 - Transparent 
Phone Number : 
True 

0 - Transparent 
Phone Name : 


Caption 
BorderStyle 
ComtrolBox 
StartUpPosition 
BackColor 
BorderStyle 
BorderStyle 
Stretch 
Picture 
AutoSize 
BackStyle 
Caption 
ForeColor 
AutoSize 
BackStyle 
Caption 
ForeColor 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 


FrmPhones 


Picture1 


Imagel 


Label2 


Label3 


Label4 


PictureBox 


Image 


True 

0 - Transparent 
Search : 
&HOOFFO0000& 
0 — LefJustify 
&H8000000F& 
Auto Number 

0 — LeftJustify 
True 

0 - LeftJustify 
Save 

1 ¬ Graphical 
Bitmap 

Delete 

1 - Graphical 
Bitmap 
Preview 

1 - Graphical 
Bitmap 

Go 

Exit 

1 ¬ Graphical 
Bitmap 

Go 


AutoSize 
BackStyle 
Caption 
ForeColor 
Alignment 
BackColor 
Text 
Alignment 
MultiLine 
Alignment 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Caption 
Caption 
Style 
Picture 
Caption 


Label5 


txtPhoneNumber 


txtPhoneName 


txtFind 


cmdSave 


cmbDelete 


cmdPreview 


Frame1 
Frame2 


cmdExit 


cmdFind 


TextBox 


TextBox 


TextBox 


CommandButton 


CommandButton 


CommandButton 


Frame 
Frame 


CommandButton 


CommandButton 


الشكل ).۳١(‏ خصائص واجهة الهواتف 


. عند تحميل النموذج يتم إظهار كافة الهواتف في الشبكة 

. عند النقر المزدوج على اسم الهاتف في الشبكة يتم إظهاره في 
الحقول . 

. عند الضغط غل زر أمر save‏ یتم إضافة الهاتف الجديد المدخل 
ي الحقول إلى قاعدة البيانات 

. عند الضغط على زر أمر 1ء( يتم حذف الهاتف المختار من 
اأ“ بكة 

. عند الضغط على زر أمر wع‏ اعم يتم عمل تقرير بكافة 
الهواتف 

. عند الضغط على زر أمر هه ه1 يتم تفريغ كافة الحقول 


HE Project1 - FrmPhones (Code) 


cmdDelete | Click چ‎ 


ivatëe Suk cmADelete Click () 


1 


Managment !", 
"Masseage™ 


ianDatabaze 


J=" € Trin (txtEPhor 


ybInformation + ¥DUKONLY 


"Phaone™ 


CmdEKIT 


الشكل )۳.١(‏ برمجة واجهة الهواتف / الجزء الاول 


FM Project1 - FrmPhones (Code) 


ÎcmaPreview FT| (Click ¥ 


j. State 1 t.CIose 


[Phone Hame] LIKE '$" & 


adûpenStatic, adLockÛptimistic 


15 


vate Sub cmdPFreview Click |) 


e = adStateûpen Then U5, Close 
1ı "SELECT * FROM [Permissia1] [Ha] 


adûpenStatic, adLockReadOnly 


٠ 


Then 
ou Don't Have Permission, Please Call Managment ", 
Critical + vbORÛnly, "Haszeage" 


HsgBox "You Don't Have Permission, Please Call Managment ", 
vhCritical + vhOKÛnly, "Hasseage" 


ت 


Exit Sub 


db, adûpenStatic, adLockReadûnly 
Set rptPhone , DataSource = 


rptPhone , Show] 


الشكل )۳.۳١(‏ برمجة واجهة الهواتف / الجزء الثاني 


Mm Project1 - FrmPhones (Code) 


T Not IsHumeric (txtPhoneNumber .Text) 
If Irir (txtPhoneName . Text) = "" 
HagBox "Please Written The Phone Name ! ", vbCritical + vbOROnly, "Phone" 


txtPhoneName . SetEocus 


If HagBox ("Do Tou Want To Saye Phone Hame ", 
¥bQuestion + vbiesNoCancel, "Phone"}) = vbhies T 


If U5.State = adStateûpen Then U5.CIase 
* FROM [Permission] WHERE [No]=" & Userlo,. db, 


Then 
rou Don't Have Permission, Please Call Managment !", 


"Masseage" 


Have Permission, Please Call] 1 
1y, "Masseaqe" 
Exit Sub 


11 
End 


3.5tate أ‎ 1 Then rs.Close 
rs.Gpen "SELECT * FROM [Phone] WHERE [Phone Name]="'" 


Iriuw(txztPhoneNauwe. Text} & "'", db, adOpenöStatic, adLockOptimistic 


If rs.RecordCouat = 0 TBe1 4تةقةlزڑضإl لصستق سروق بتم‎ 


db .Execute "INSERT INTO [Phone] (Phone Name) 7 & Trin (txtPhoneName } 


r MIF 
& 1 


HsgBaox "The Operation 
ThInfoûrnation + YbORKOnL 
Call Form Load 


HasgBax "The Phone Name H 
YbCEritical + YhHOKONIY, 
Gall Form Load 
txtEFhonelame, SetFocus 

If 


الشكل (۳.۳۷) برمجة واجهة الهواتف / الجزء الثالث 


FM Project1 - ErmPhones (Code) SE 


cmd Save <| [Cliek 2 


[(" De You 1 ۳ 
= Thess Then 


"SELECT * FROM [Permission] WHERE [No]=" & UserNo, db; 
adûpenStatic, adlockReadûnly 
If US5.RecaordCount:= Û Then 
HagEox "You Don't Have Permission, Please Hanagment !", 


Critical + vbOROnly, "Hasseage" 


ITE US [Edit] = False T 
HagqBor "iou Don't Have Permission, Please 
¥hCritical + vpbOROnly, "Masseage" 

Exit Sub 
e 
End 

db. Execute "UPDATE [Phone] [Phone Name] ='" & Trin (tatPhoneName . Text) 

ë "' WHERE [Phone Ho]=" & Irin FPhoneNunyber .Text) 

HsgEBoz "The Edit Gperation 3ı y", vbiInformation + vhORKÛnly, "Masseage" 

Call Form Load 


3 
71 

a. 
ا‎ 
Fh 


r" 1 ا‎ 
O. 


er] 
MHagBog err.Deacription & "!", vhCritical, "Phone" 


Call Form Load 
End Sub 
Private Subh Form Load () 


Call ConnectionDatabaze 

If pt:State = adStateÛpen Then pt.CIose 

pt. ûpen "[Phone]";, db, adûpenStatic, adLockûÛptimistic 
Call MSHFlexgridAlignment 

txtPhaoneNunber . Text = "Auto Number" 

txtPhoneNane . Text = "" 


الشكل (۳.۳۸) برمجة واجهة الهواتف / الجزء الرابع 


EE 
DbIClick 2 | 


Private Sub HSAFlexgridAlignment |) 


MSHFlexGridi1 «Clear 
MSEHFlexGridi1, Rows = 2 

Set MSHFlexGrid1.DataSource = pt 
MSHFlexGrid1 .TextMatrix(0O, 0} = "Number" 
MSEFlexGridi1.TeztMatrix (0, 1) "Phone Name" 


HSRFlexGridi1.ColWidth (0} = 504 
MSHFlexGrid1.ColWidth (1} = 1800 
MSBFlexGrid1,.ColAlignment (0) = 1 


HSHAFlexGridi .ColAlignmentFixed (0} = 1 


j] dub 


If HSHFlexGrid1.Row = O0 Then Exit Sub 
txtPhoneNumber . Text = MSHFlexGrid1 .TextMatrix (MSHFlexGridi., Row, 1) 
txt PhoneName , Text = HSHFlexGrid1 .TextHatrix (MSHFlexGridi, Row, 2) 


j Sub 
Private Sub: txtFind Change () 


Call cmdFind Click 


الشكل (۳.۳۹) برمجة واجهة الهواتف / الجزء الخامس 


Phone Model 
ھ‎ Phone Model Windoin 


‘fou can in this winsow Insert all phone model after selected company maker name , such as chossing nokia and writing nokia B230 , also you 
must insert rang less to BeÛrder Request and proprtion interest sales on phone model selected 


ااا سے Phare‏ 


Phare Hurnber : 1 
Phone Name : 


Phone Model 


Model Number : 


Model Hame : 
Unit: 


Back 5 ReUrderRequest : |4, Interest |, û 
8 ا جا‎ 1 ۳ 2 
Sare Delete Llear Data iin Ewil Preyiey Lancel 
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تم التعديل على الخصائص التالية 


Properties 

Property Name Value 
Caption Phone Model 
BorderStyle 2-Sizable 
ComtrolBOox False 
StartUpPosition 2 - CenterScreen 
BackColor &H8000000E& 
BorderStyle 0-None 
BorderStyle 0 — None 
Image Imagel Stretch True 

Picture Bitmap 

AutoSize True 

BackStyle 0 - Transparent 
Label1 ES Phone Model 

P Window 

ForeColor &H000000FF& 

AutoSize True 

BackStyle 0 - Transparent 
You can in this 
winsow insert 


Control Name 


FrmPhoneModel 


PictureBox Picture1 


Label2 
Caption 


&HOOFFO0000& 
True 

0 - Transparent 
Phone 

True 

0 - Transparent 
Phone Number : 
True 

0 - Transparent 
Phone Name : 
True 

0 - Transparent 
Phone Model 
True 

0 - Transparent 
Model Number : 
True 

0 - Transparent 
Model Name : 
True 

0 - Transparent 
Unit: 

0 — LeftJustify 
&H8000000F& 
0 - LeftJustify 
&H8000000F& 
Auto Number 

0 — LeftJustify 
0 — LeftJustify 
10 

0 — LeftJustify 
0 

True 

0 - Transparent 
ReOrderRequest : 
True 

0 - Transparent 
Interest: 

True 

0 - Transparent 
% 
&H000000FF& 
cmbPhoneNo 
cmbUnit 

Save 

1 - Graphical 
Bitmap 

Delete 

1 - Graphical 


ForeColor 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
Alignment 
BackColor 
Alignment 
BackColor 
Text 
Alignment 
Alignment 
Text 
Alignment 
Text 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
ForeColor 
Text 

Text 
Caption 
Style 
Picture 
Caption 
Style 


Label3 


Label4 


Label5 


Label6 


Label7 


Label8 


Label9 


txtPhoneName 


txtPhoneModalNo 


txtPhoneModalName 
txtReOrder 


txtlinterest 


Label10 


Label11 


Label12 


cmbPhoneNo 
cmbUnit 


cmdSave 


cmbDelete 


Label 


Label 


Label 


Label 


Label 


Label 


Label 


TextBox 


TextBox 


TextBox 


TextBox 


TextBox 


Label 


Label 


Label 


ComboBox 
ComboBox 


CommandButton 


CommandButton 


Bitmap 

Clear Data 

1 ¬ Graphical 
Bitmap 

View 

1 ¬ Graphical 
Bitmap 

Exit 

1 - Graphical 
Bitmap 
Preview 

1 ¬ Graphical 
Bitmap 

Cancel 

1 - Graphical 
Bitmap 
&H8000000E& 
1 - FixedSingle 
Pcture 


Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
BackColor 
BorderStyle 
Caption 
Caption 


cmdClear 


cmdViewPhoneModal 


cmdExit 


cmdPreview 


cmdCancel 


Picture2 


Frame1 
Frame2 


CommandButton 


CommandButton 


CommandButton 


CommandButton 


CommandButton 


PictureBox 


Frame 
Frame 
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Combo 80×1 عند تحمیل النموذج يتم إضافة اسماء الهواتف الى‎ .١ 

و إضافة اسماء الوحدات اى o80×2طbصCom‏ 

. عند الضغط على زر 8۷٥‏ يتم حفظ نوع الهاتف في قاعدة 
البيانات. 

. عند الضغط على زر ع)٥1ء(‏ يتم حذف نوع الهاتف المحدد في 
الحقول من قاعدة البيانات . 

. عند الضغط على زر هاه( هم1 يتم تفريغ الحقول في 

النموذج. 

. عند الضغط على زر ۷1ew‏ يتم إظهار نموذج 
frm ViewPhoneModal‏ 

. عند الضغط على زر )8×1 يتم إخفاء النموذج . 

. عند الضغط على زر سع1بع۴۲ يتم إظهار صندوق النظام (فتح) لإإضافة 
صورة الهاتف في صندوف الصورة . 

. عند الضغط على زر 1عءمه) يتم إلغاء عملية تحميل الصورة . 


mi Projectî - FrmPhoneModel (Code) 
cmbPhonelo < [change 


Option Explicit 

Dim GetUnitHo As Integer 
Public iPhone As Integer 
Public iPhoneModal As Integer 
Public iCategory As Integer 


Private Sub cmbPhoneNo Change () 


If rs.5tate = ad5tateÛpen Then r3.Closze 
ra.ûpen "SELECT * FROM [Phone] WHERE [Phone No] =" & Trim (cmbPhoneNo . Text) 
db, adûpenStatic, adLockÛptimistic 

[| IE rs.RecordCount <> O0 Then txtPhoneName. Text = rs! [Phone Name] 


End Sub 
Private Sub cmdCancel Click () 


Image2.Picture = LoadPicture ( } 
sor = "r" 


ûOpenFile = mn 
End Sub 
Private Sub cmdClear Click () 


txtPhoneModalNo . Text = "Auto Humber" 
txtPhoneModalName . Text = "" 
txtReOrder .Text = 10 
txtIinterest. Text = Û 
cmbPhoneNa . Enabled = True 

Imagqe2. Picture = LoadPicture (} 
txtPhoneModalName . SetFocus 

s0r = mI 

ûOpenFile = "r" 


End Sub 
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Hl Project1 - FrmPhoneModel (Code) ك‎ E8 


cmdDelete | [Click 8 


ûdalNa. Text} Then 


ie Data You Want. To Delete Frou Menu View !" & vbUrLl & 


To Menu 3? ybQu 1 + ¥FbOKOnIy, "Phone Madél"} = ¥hies Then 


alt 


US. Cpen CT * FROM [Permission] WHERE [No]=" & UserNo, db, adCpenStatic, adLackReadûnly 
If 1 oui Û Then 
MsgBox "You Don't Have Permission, Please Call Manağjment !", 
¥bCritical + vbOKÛnly, "MHasseage" 


Exit Sub 


El13e 
If US! [Delete] = False Then 
HagEox "You Don't Have Permission, Please Call Managment 


vbCritical + YDOKONLY,, "Hasseage" 


I" 
2 f 


Exit Sub 


TE 


Closed Ther Call Conne 
* FROM [Phon WF [PhaneMadal Non]=" & Trin (txtPhoneHaodalNa) 


vbInfarmation + vbOKONIy, "Delete" 


MHagBox err. Description, vbhCritical, "Phone Madel" 


ub CmdExit Click () 


Unload He 
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Proje 


emrl Save 


Private Sub cmdPreview C1 


MDIForr1.CommonDialog1 . ShowOpen 
OpenFile = MDIForn1 .CommonDialog1 .Fi 
Image2.Picture = LoadPicture (OpenFile) 


If err. Humber 


Trin (cmbPhoneNo . Text) 1 
MsgBox "Please Enter ThePhone Name !", vrbCritical + vbDOKOnly, "Phone Model" 


cmbPhoneNo . SetFocus 


fodalName. Text) 
"Please Enter The Phone Mo ybCritical 


dalName. SetFocus 


MsgBox "Please Cho Model" 


cmbUnit. SetFocus 


hisa Phone Model ? vbquestion + vbYesNoCancel, 


gqBox ("Do 1 
e Mo 
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'ûpen Database 


If U5.5tate = adStateÛpen Then U5.Close 
U5. Open "SELECT * FROM [Permission] WHERE [No]=" & UserNo, db, adûpenStatic, 
adLockReadOnly 
If U3.RecordCount = Û0 Then 
HsgBox "You Don't Have Permission, Please Call Managment !", _ 
wbCritical + vbORKOnly, "Masseage" 
Exit Sub 
Else 
If US! [Add] = False Then 
MsgBox "You Don't Have Permission, Please Call Managment !", 
vbCritical + vbOKOnly, "Masseage" 
Exit Sub 


If db.State = adStateClosed Then Call ConnectionDatabasze 
"Check Duplicate Data 

If r3.5tate = adStateÛpen Then rs.Close 

rs.Ûpen "SELECT * FROM [PhoneMaodal] WHERE [Phone No] =" & | 

Val (cmbPhoneNo.Text) é& " AND [PhoneModal Name]='" & 

Irinm (txtPhoneModalName. Text) & "'", db, adûpenStatic, adLockûOptimistic 


If rs.RecordCount = Û) Then 
Call GetUnit 
If pt.State = adStateÛpen Then pt.Close 
'ûpen Table Phone Modal 
pt. Open "[PhoneModal] ", db, adûpenStatic, adLockPessimistic 
"Add Phone Modal 
With pt 
. AddNew 
! [Phone Ho] = cmbPhoneNo , Text 
! [PhoneHodal Name] = Trin (txtPhoneHodalName . Text) 
! [Unit_No] = GetUnitNo 
! [Reûrder] = Trin [Val (txtReûrder . Text) |) 
! [Iinterest] = Trin (Val (txtlinterest. Text) ) 
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"Save picture 
If Hot Image2.Picture = Û Then 
If Not Trin (OpenFile}) = "" Then 
ûGpen OpenFile For Binary A3 i 
aor = String (LOF (1}, vbHullChar) 
Get 1, „, 30r 
! [Picture] = sûr 
Close 1 
End If 
Else 
! [Picture] = Kull 
End If 
, Update 
End With 


MsgBox "the Saving Operation Completed Succesfully 1", | 
vbInformation + vbOROnly, "Save" 
Call cmiClear Click 


found duplicate data show under mag. 
MsgBox "This Phone Model has been Entered Another Time , Please Check", | 
ybCritical + vbOROnly, "Phone Model" 
txtPhoneModalNane . SetFocus 
End If 
End If 
End I 
End If 
End If 


Else 
"Edit Phone Modal 


If Trin (txtPhoneMaodalName , Text) = "" Then 
MsgBox "Please Enter The Phone Model !", vhCritical + vhOKOnly, "Phone Model" 
txtPhoneModalName . SetFocus 
Exit Sub 

End If 
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If MsgBox ("Do You Want to Edit This Phone Model !", د‎ 
vbQuestion + vbYesNoCancel, "Phone Model") = vbies Then 


If US5.State = adStateOpen Then US5.Close 
U5.Open "SELECT * FROM [Permission] WHERE [No]=" & UserNo, db, adOpenStatic, adLockReadOnly 
If US5.RecordCount = 0 Then 
MsgBox "You Don't Have Permission, Please Call Managment !", 
vbCritical + vbOKOnly, "Masseage" 
Exit Sub 
Else 
If US! [Edit] = False Then 
MsgBox "You Don't Have Permission, Please Call Managment !", 
ybCritical + vbOKOnly, "Masseage"™ 
Exit Sub 
End If 
End If 


Call GetUnit 


If pt.State = adStateOpen Then pt .Close 
pt.Open "SELECT * FROM [PhoneModal] WHERE [Phone No] =" & Val (cmbPhoneNao.Text) & | 
" AND [PhoneModal No] =" & Val (txtPhoneModalNo.Text) & "", db, adGpenStatic, adLockPessimistic 
"Edit Sub Category 
With pt 
! [PhoneModal Name] = Trin (txztPhoneModalName . Text) 
! [Unit No] = GetUnitNo 
! [ReûÛrder] = Trin (Val (txtReOrder .Text) } 
! [Tinterest] = Trin (Val (txtlinterest. Text) } 
"Save picture 
If Not Image2.Picture = 0 Then 
If Not Trim (OpenFile) = "" Then 
Open OpenFile Far Binary As 1 
sor = String (LOF (1), vbNul1Char) 
Get l1l; ; SCF 
! [Picture] = sar 
Close 1 
If 


1! [Picture] = Null 


. Update 
End With 
| MsgBox "The Editing Operation has been Succesfully !", vbInformation + vbOKOnly, "Edit" 
Call cmûClear Click 
End If 
End If 
Exit Sub 


MsgBox err .Description, vYbCritical, "Phone Model" 
End Sub 
Private Sub cmûViewPhoneModal Click) 

iCategory = 0 

iPhoneModal = 0 

frmViewPhoneModal . Show 1 


Call ViewDetails 


End Sub 


al 
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FM Project1 - EFrmPhoneModel (Code) 


(Load‏ آ7 


Table 
adStateûpen Then r3.Close 


I", db, adûpenStatic, adLockûptimistic 


Item ra! [Unit Description] 


cmbUnit. Text = cnbUnit. List (0) 
Tf 


ra = Nothing 
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Ml Project - FrmPhoneModel (Code) EEE 


| (General) YiewDetails <| 
5 - Ah ++~-0 f ٤ r 


Ea3 (KeyAscii A3 Integer) 


If InStr (atrVal 


KeyAscii = Û 


If 


GetUnit () 


pen FROM [Unit] WHERE [Unit Description] ='" & Trin (cmbUnit. Text) & 
adûpenštat adLackPesaaimiatic 


Ûû Then 


If iPhone hen 
PhoneMadal 


txtPhoneName . Text = frmViewPhoneModal, MSHFlexGrid1. 
txtPhoneModalHa. Text = iPhoneModal 


txtPhoneModalHame . Text = frmViewP! Modal. MSHFlexGrid1 ,. TextMHatrix (frmViewPhoneModal . MSHFlexGrid1 .F 
cnbUnit. Text = frmViewPhoneModal. MSHFlexGrid1. TextMatriz (frmViewP 
txTReOrder. Text = frmVi 
nteresat, Text = frmViewPh MSHFlezxGrid1., TextMatrix (frmView 
Call GetPicture 
cmkPhoneHa. Enabled = False 
Unload frmViewPhoneMadal 
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Mi Project1 - EFrmPhoneModel (Code) 


(aeneral] 


adStateOpen 

*F FROM [F ] E [Phone No] =" & Val (cembPhaneNo, Text) & _ 
" AND [PhoneModal No] =" & Text} € "", db, adûOpenStatic, adLûöckÛptimistic 
E ra. Rec 1 


With rs 


If ![Picture] 


Image2.Picture = LoadPicture (App .Path £ "\LoadFi 
Else 

Image2, Picture = LoadPicture () 
End If 
With 
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Purchases 
Ê] Purchases Windom 


Tou Can in this window Created Purchase Order 


Document Humber : Date : lpa-07-2012 | F Suppliers 
Supplier Humber : Supplier Hame : | Search : | 


Comment : | : 
Supplier Mame 


Adam 


0 
Phone Name : AL Phane Model : 3 Dudai 
Unit: ually : Price : 
Number Fo : | Procedure: [Add = Run Procedure 


Hu} Phone Name Phone Model Unit [ duantity Price Amount 


Last Price : 


2 


Saye Llear Data Delete Invoice Yerily E it 


الشكل (3.51) واجهة المشتريات 
تم التعديل على الخصائص التالية : 


Properties 

Control Property 
Name 

Caption Phone 

BorderStyle 2-Sizable 

ComtrolBox False 

StartUpPosition 2 - CenterScreen 

BackColor &H8000000E& 

BorderStyle 0-None 

BorderStyle 0 — None 

Image Imagel Stretch True 

Picture Bitmap 

AutoSize True 

BackStyle 0 - Transparent 

Caption Purchases Window 

ForeColor &H000000FF& 

AutoSize True 

BackStyle 0 - Transparent 

Caption You Can in this 

ForeColor &HOOFFO0000& 

AutoSize True 

Label3 BackStyle 0 - Transparent 

Caption Document Number 


Property Name 


FrmPurchases 


PictureBox Picture1 


Label2 


True 

0 - Transparent 
Supplier Number : 
True 

0 - Transparent 
Comment : 
True 

0 - Transparent 
Supplier Name : 
True 

0 - Transparent 
Date : 

True 

0 - Transparent 
Search : 
&HOOFFO0000& 
Suppliers 

1 - Fixed Single 
0 - LeftJustify 
&H8000000F& 
Auto Number 

0 — LeftJustify 
&H8000000F& 
0 - LeftJustify 
&H8000000F& 
0 - LeftJustify 
&H8000000F& 
0 — LeftJustify 
0 — LeftJustify 
0 — LeftJustify 
0 - LeftJustify 
0 - LeftJustify 
&H8000000F& 
True 

0 - Transparent 
Last Price : 
&H000040CO0& 
True 

0 - Transparent 
Phone Name : 
True 

0 - Transparent 
Phone Model : 
True 

0 - Transparent 
Unit: 

True 

0 - Transparent 


AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
ForeColor 
Caption 
BorderStyle 
Caption 
Alignment 
BackColor 
Text 
Alignment 
BackColor 
Alignment 
BackColor 
Alignment 
BackColor 
Alignment 
Alignment 
Alignment 
Alignment 
Alignment 
BackColor 
AutoSize 
BackStyle 
Caption 
ForeColor 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 


Label4 


Label5 


Label6 


Label7 


Label8 


Frame1 


Frame2 


txtDocNo 


txtSuppNo 
txtSuppName 


txtSuppName 


txtRemark 
txtFind 
txtRate 
txtQOTY 


txtUnit 


Label9 


Label10 


Label11 


Label12 


Label13 


Frame 


Frame 


TextBox 


TextBox 


TextBox 


TextBox 


TextBox 
TextBox 
TextBox 
TextBox 


TextBox 


Label 


Quality : 

True 

0 - Transparent 
Price : 

True 

0 - Transparent 
Number Row : 
True 

0 - Transparent 
Procedure : 
cmbPhoneName 
cmbPhoneModalName 
cmbRow 
cmbProcess 
&H000000FF& 


Run Procedure 
Go 

Save 

1 ¬ Graphical 
Bitmap 

Clear Data 

1 - Graphical 
Bitmap 

Delete 

1 - Graphical 
Bitmap 
Invoice 

1 - Graphical 
Bitmap 

Verify 

1 - Graphical 
Bitmap 

Exit 

1 - Graphical 
Bitmap 

0 — LeftJustify 
&H8000000F& 


Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
Text 

Text 

Text 

Text 
ForeColor 
Caption 
Caption 
Caption 
Caption 
Caption 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Alignment 
BackColor 


Label14 


Label15 


Label16 


cmbPhoneName 
cmbPhoneModalName 
cmbRow 


cmbProcess 


dtpDate 
Command! 
cmd ViewPhone 
cmdViewPhoneModal 
Command4 
cmdFind 


cmdSave 


cmdClear 


cmdDelete 


cmdInvoice 


cmbVerify 


cmdExit 


txtPreRate 


الشكل (3.51) جدول خصائص واجهة المشتريات 


Label 


Label 


Label 


ComboBox 
ComboBox 
ComboBox 


ComboBox 


DTPicker 
CommandButton 
CommandButton 
CommandButton 
CommandButton 
CommandButton 


CommandButton 


CommandButton 


CommandButton 


CommandButton 


CommandButton 


CommandButton 


TextBox 


عمل النموذج : 


E عند تحميل النموذج يتم إظهار اسماء‎ .١ 
يتم إظهار نموذج‎ E 
Vic PutE aC DSouihERE 
عند الضغط على زر المرقم بالرقم ۲ ب يتم إظهار نموذج‎ . 
frm ViewPhoneModalP 
عند الضغط على زر المرقم بالرقم ۳ ب يتم إظهار نموذج‎ . 
frm ViewPhoneModalP 
يتم فحص النص الموجود في‎ R إ۴ من‎ ٥١ع‎ لu‎ ۲١e عند الضغط على زر‎ . 
AddInGrid ءlرجiلا فإذا كان النص ۸44 يتم إستدعاء‎ cmb Process 
و يتم عمل الإجراء‎ » ۴)], 6٣1١ و إذا کان ٤1ع يتم إستدعاء الإجراء‎ 
. و إظهار النتائج في الشبكة‎ 
عند الضغط على زر ٥۷ج يتم التأكد من الصلاحيات و حفظ العملية في‎ . 
. قاعدة البيانات‎ 
. عند الضغط على زر اه٥ ٣هه1 يتم تفريغ الحقول‎ . 
یتم حذف العملية المحددة ذ في الحقول من‎ Peet عند الضغط على زر‎ . 
٠ قاعدة البيانات‎ 
يتم عمل فاتورة بالعملية المحددة في‎ ]" ۷01٥٥ عند الضغط على زر‎ . 
الخقل.‎ 
. عند الضغط على زر رذه۷ يتم إعتماد العملية المحددة في الحقول‎ .٠ 
عند الضغط على زر 60 يتم الإستعلام من قاعدة البيانات من‎ .۲ 
MSHFlexgridAlignment ءlرڙجإلا‎ ءsleدiwl‎ g SupplierJlgڏج‎ 
عند النقر المزدوج على اسم المورد في الشبكة يتم إظهار اسم المورد و‎ ۳ 
. رقمه في الحقول المخصصة لها‎ 


ml Project1 - FrmPurchases (Code) 


cmbPhoneModalName ¥ Change ¥ 


ûOption Explicit 

Dim gPhone As Integer 

Dim gqPhoneHodal As Integer 
Dim gUnit As Integer 


Private Sub cmpPhoneHodalName Change ( 


Call RefreshUnit 
Call GetPreRate 


End Sub 
Private Sub cmbPhoneName Change () 
Call RefreshPhoneModal 


End Sub 
4 
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mM Project - FrmPurchases (Code) 


Private Sub cmbVerify Click() 


ûn Error Golo er 
If MagBoz ("Do Tou Want To Verify This Purchase Order ? 
ybQuestion + vbYesNoCancel, "Purchase"] = vhlies Then 
If U5.State = adS5tateûpen Then US5.Close 
U5.Û0pen "SELECT * FROM [Permission] WHERE [No]=" 
UserNo, db, adûÛpenStatic, adLockReadOnly 
If U5.RecordCount = 0 Then 
MsgBox "Tou Don't Have Permission, Please Call Managment !", | 
ybCritical + vbORûÛnly, "Masseage" 
Exit Sub 
Else 
If US! [Verify] = False Then 
MsgBox "You Don't Have Permission, Please Call Managment !", | 
ybCritical + vbOROnly, "Masseage"™ 
Exit Sub 
End If 
End If 


If rs.5tate = adStatebpen Then r3.Close 
ra .Ûpen "UPDATE [Purchase Header] SET [¥erify] =True WHERE [Document No]=" & 
Val (txtDocHa . Text}, db, adûpenStatic, adLockPessimistic 
If rs.5tate = adStateûpen Then rs.Close 
ra .Ûpen "SELECT * FROM [PurchaseStock] WHERE [Document No] =" & | 
txtDocHo. Text, db, adûpenStatic, adLockPessimistic 
If r3.RecordCount = 0 Then 
HsgBox "Error !'! ", vblCritical + ¥bORKOnly, "Purchase" 
Else 
s5.Fields . Refresh 
.MoveFirst 
û Until rs3.EOF 
db. Execute "INSERT INITIO [STOCK] (Document No, Phone No, PhoneModal No, | 
Unit No, Quantity, Rate, Balance) VALUES (" & 
ra! [Dofument_No] چ‎ " & rs! [Phone No] €", "TE 
rs! [PhoneModal No] € ", " & rs!Unit No &€ "," & rs! [(uantity] € ", 
" & rs! [Rate] &€ ", " & rs! [Quantity] & "}" 
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rs .MoveNext] 
Loop 
End If 
cmbvVerify . Enabled = False 
cubvVerify . Enabled = False 
cmdSave . Enabled = False 
cmiDelete . Enabled = False 
Set rs = NKothing 
MsgBox "The Verify Operation ?Coupleted Succesfully !", | 
wbInformation + vbOKOnly, "Purchase" 
End If 
Exit Sub 
er: 
MsgBox err. Description, vYbCritical + vbOKOÛnly, "Purchase™ 


End Sub 
Private Sub cmdClear Click () 


Call ConnectionDatabasze 

If pt.State = adStateûpen Then pt.Closze 
pt. Open "[Supplier]", db, adûpenStatic, adLockOptimistic 
Call MSHFlexgridAlignment 

Call MSFlexzGridAlignmentAccount 
cmbProcess.Text = cmbProcess. List (0) 
txtDocNo .Text = "Auto Number™ 
dtpDate. Value = Now 

tEtSuUppHD . Text = "" 
tztSuppName . Text = "r" 
txtRemark . Text = ™™ 

tEtUnit. Text = ™" 

tELYTI. Text = "" 

tEtRate . Text = ™" 

tktPreRate . Text 

cmbRow . Clear 
cnmbPhoneModalName . Clear 
cemdSavwe . Enabled 

cmdDelete . Enabled = T 

cubverify .Enabled = T 

Call RefreshPhone 


End Sub 
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Ml Project1 - FrmPurchases (Code) 


[emaDelete 


HagBox "Tou Don't Have Permission, Please Call Managment 1", 
Critical + yEGEOnly, "Masseage" 
Command1 . SetFocus 


Exit Sub 


ou Want To Delete This Purchase Ûrder 
Tı + vbiesaNoCcancel, "Purchase") = ypbIes Then 
If U5.State = adS5tateûpen Then US5.Closae 
U5.Gpen "SELECT * FROM [Permission] WHERE [No]= UserNo, db, adûpenStatic, adLockReadûnly 
If U5.RecordCount = Û Then 
MagBox "Tou Don't Have Permisaion, Please 
ybCritical + ybOKOnly, "Masseaqe" 


Exit Sub 


If U5! [Delete] = Falae Then 
HagBox "Tou Don't Have Permission, Please Call Managment 1", 


yECritical + ybOKOnly, "Masseage" 


tateClosed Then Call ConnectionDatabaze 
db . Execute "DELETE * FROM [Purchase Details] WHERE [Document Ho] & Val (tztDozcHo . Text) 


db. Execute "DE FROM [Purchase Header] Wf [Document No]=" £ Val (txtDocNo. Text) 
MagBox "The Deleting Cperation Caonpleted Successfully 1! 
ybInformation + yvbOKOnly, "Purchases" 


Call emdiClear Click 


HH 


JX err, Deacription, ybCritical + yvbOKOnly, "Purchase" 


ate Suk CmûExit Click) 


Unload Me 
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PM Project1 - ErmPurchases (Code) 
[amaFind ٠ 


CT * FROM [Supplier] WHERE [Supplier Name] LIF 
& "+$'", db, adOpenStatic, adLockOptimistic 


eEÛpen Then U5, Clase 
OM [Permission] WHERE [Ho] 


,„ AdLockReadûnly 


HsgBûx "You Don't Have Permissiûn, Please Call Managment !", _ 
ybCritical + vbOROnly, "Haaseage" 
Exit Sub 
Else 
] = False Then 


Dan't Have Permiszion, Please Call Managment !", 


End If 
Ieee EEEEEEEEFEEEEEEEEEEEEEEEREEEEEEEEEEEEEEEEEEEEEEEEE EEE 


" 


CT [Purchase Header]. [Document Nû], [Purchase Header] . [Date], [Purchase Header] . [Supplier No], 


" [Supplier] . [Supplier Name], [Supplier] . [Address], [Supplier], e], [Supplier]. [Fax], [Supplier] . [E-Mail 
" [Purchase Header] . [Remark], [Phone] . [Phone Name], [PhoneModal] . [PhoneModal Name], [Unit] . [Unit Description], 
" [Purchase Details] . [Quantity], [Purchase Details], [Rate], [Purchase Details]. [Amount] " £ _ 
"FROM (Unit INNER JOIN (Fhone INNER JOIN PhareMadal ON [Phone] . No] =[PhoneModa1] . [Phone No] | 
"[Tnit] . [Unit Na] 1]. [Unit RF NNER JOIN ( (Suppl 
0] =[Purchase Header] . [Suppl 1) 

" [Purchase Header] . [Document Ho] =[Purchase Details] , [Document 
" [Purchase Details] . [Phone No]) AND ([PhoneModal] nel 
" (| [PhoneModa1] . [Unit No] =[Purchase Details] . [Unit 

te = ad5tatedpen Then r3,Close 


QL, dh, adûpenStatic, adLockReadOnly 
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2 


1) .Caption = GetSetting (App. Title, "Setting", "ShopHamê", "شركة الاتصالات الارن"‎ 
: "العنوان‎ & beten (App. Title, "Setting", "Address", "") 

: "الات‎ & GetSetting (App. Title, "Setting", "Phone", "") 

: lil" & GetSetting (App. Title, "Setting", "Fak", ""}) 


3! [Supplier Ha] 
! [Supplier Name] 


[Doeument No] 


= Format (ra! [Date], "DD/MM/YYYI" 


Aûdresa3] 
Phone] 
Fax] 
Remark] 


rs! 


ا 
8 
Ta!‏ 
Fa!‏ 


2) .Captiou 


3(3) Caption 


4} „Caption = 
12) .Caption = 
13) .Captiou 
,baPption 
5) . Caption 
7) .Captiûn 
0) .Caption 
, Caption 
,bapi0n 


rptPurchase .Sections (1) .Controls 
rptPurchase , Sections (1) .Controls 
rpt Purchase , Sections 
rptPurchase , Sections 
rptPurchase , Sections 
rptPurchase , Sections 
rptPurchase , Sections 
rptPurchase . Sections ( 
rptPurchase . Sections (1 
rptPurchase , Sections (1 
rptFPurchase , Sections 
rptPurchase . Sections (1) , Controls 


LELELEDLDLDLLDL LLL LDL DDD DD DDD DD LD DD DD LDL LDL LDL LDL 


pt! [SumAmount ] 


¬ 


True 


If pt. State = adStateÛpen Then pt. Close 
pt, Open "SELECT SUM (Amount) A5 SumAmount FROM [Purchase Details] WHERE [Document Io] =" & Val [txtDocNo. Text), _ 


db, adûpenStatic, adlockReadûnly 
If pt .RecordCount = 0 Then 


rptPurchase . Sections (5) . Controls (3) . Caption 


Else 


rptPurchase . Sections (5) , Controls (3) Caption 


End lf 


If pt. State = adStateûpen Then pt. Close 
pt. Open "SELECT * FROM [Purchase Header] WHERE [Document Ho] =" & Val (txtDoclo)}, db, adOpenStatic, adLockReadOnly 


If pt. RecordCount = 0 Then 


rptPurchase „Sections (1) .Controls (22) .Visible = 


Else 
If pt! [Yerify] = False Then 


rptPurchase, Sections (1) .Controls (42) ,Visible 


Visible 


Else 


rptPurchase. Sections (1)} .Controls (22 
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mM Project1 - FrmPurchases (Code) 


IsNumeric (txtDocHo .Text) Then 


Î Trin {txtSuppName . Text) = "" 


he Phone Reqguied In The Network !" 


"Purchases" 


f 


ave Purchases Order !", | 
¥eQuestion + vbYesNoCancel, "Purchases") = bles Then 
lf U5.5tate = ad5tateûpen Then U5.,CIose 
FROM [Permission] WH [No]=" & UserNo, 
adLockReadûnly 


ve Permission, PFlease Call Managment !", 
"Masseage" 


= False Then 


"fou Don't Have Permission, Please Call 


ctionDatabase 
Then rs.Çlose 


I1", db, adûpenötatic, adLockPessimistic 


= Format (dtpDate . Value, "DDH TITY") 
[Supplier No] = txtSupplo . Text 
[Remark] = txtRemark . Text 
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tatDocHo. Text = rs! [Document Io] 
If ra.State = adStateÛpen Then rs.Close 
ra,ûpen " [Purchase _Detail3]", db, adûpenStatic, adLockPessimiatic 
Far ãi = 2 To MSFlexGrid1.Raws - 1 
Call GetHaPhanePhoneModal 
Call GetUnitHo 
With 


! [Document No] = txtDocNo. Text 
! [Phane No] = gPhone 
! [PhoneModal No] = gPhoneModal 
s3! [Unit No] = gUnit 
1 [Quantity] = MSFlexGrid1.TextMatrix (i1 - 1, 4] 
8! [Rate] = MSFlexGrid1.TextMatrixli - 1, 5)} 
ra! [Amount] = MSFlexGrid1.TextMatrixli - 1, 6) 
. Update 
End With 
Next i 
HagBox "The Saye Operation Completed succesfully", | 
vbInfarmation + vbOROnly, "Purchases" 
cmkbVerify .Enabled = True 
emdInvoice . Enabled = True 
End If 
Else 
"Edit Purchase Documents 
If MSFlexGrid1.Raows = 2 Then 
MsgBox "Please Enter The Phone Requied In The Network '", 
yblCritical + vbOKûnly, "Purchases" 
cubPhaoneHame . SetFocus 
Exit Sub 
End If 
If MsgBox ("Do You Want To Edite Purchases Order", | 
¥byuestion + vblesNoCancel, "Purchases") = vbles Then 
lf US5.State = adStateÛpen Then US5.Close 
U5 .Open "SELECT * FROM [Permission] WHERE [No]=" & UserNo, _ 
db, adûpenStatic, adLockReadûnly 
If U5.RecordCount = Q Then 
HsgBox "Tou Don't Have Permission, Please Call Managment !", | 
ybCritical + vbORKÛnly, "Masseage"™ 
Exit Suk] 
Else 
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If US! [Edit] = False Then 
MsgBox "You Don't Have Permission, Please Call Managment 1! 
¥bCritical + vbORKOnly, "Hasseage" 
Exit Sub 
End If 
End If 
If r3.5tate = adStateÛpen Then r3.Close 
rs.Ûpen "SELECT * FROM [Purchase Header] WHERE [Document No] =" & | 
Val (txtDocNo. Text), db, adûpenStatic, adLockPessimisatic 
With rs 
rs! [Date] = Format (dtpDate. Value, "DD/MM/YTITY") 
rs! [Supplier No] = txztSuppNo. Text 
rs! [Remark] = txtRemark . Text 
. Update 
End With 
If r3.5tate = adStateÛpen Then r3.Closze 
rs.,Ûûpen "DELETE * FROM [Purchase Details] WHERE [Document No] =" & | 
Val (txtDocNo}), db, adûpenStatic, adLockPessimisatic 
If r3.5tate = adStateÛpen Then r3.Close 
ra.Ûpen " [Purchase Details]", db, adûpenStatic, adLockPeszimistic 
For i = 2 To MSFlezgGrid1.Rows - 1 
Call GetNoPhonePhoneModal 
Call GetUnitHo 
With rs 
. AddHew 
rs! [Document Ho] = txtDocNo . Text 
rs! [Phone No] = gPhone 
rs! [PhoneModal No] = gPhoneModal 
rs! [Unit _ No] = gUnit 
rs! [fuantity] = MSFlexGrid1.TextMatrix (i - 1, 4} 
rsa! [Rate] = MSFlezGrid1.TexztMatrizx (i = 1, 5} 
rs! [Amount] = MSFlezGrid1.TextMatrixli - 1, 6) 
. Update 
End With] 
Wext i 
MsgBox "The Editing Operation Completed Succesfully", _ 
wbInformation + vbOKûÛnly, "Purchases" 
cnubVerify .Enabled = True 
cmdInvoice . Enabled = True 
End If 
End 1f 


End Sub 
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Fi pProject1 - FrmPurchases (Code) EEE) 


Commandî + [Click چ‎ 


Private Suk cmdûViewPhone Click () 
frmViewPhoneModalP . Show 1 

End Sub 

Private Suk cmdViewPhoneModal Click () 
frmViewPhoneModalP . Show 1 

End Sub 

Private Suk Command1 Click () 


iDoc = 0 
frmViewPurchaszeDocumentas . Show 1 
Set rs = Nothing 
If Kot iDoc = 0 Then] 
Call cmdClear Click 
Call ConnectionDatabase 
If rs.State = adStateÛOpen Then rs.Close 
ra .Ûpen "SELECT * FROM [Purchase Header query] WHERE [Document No] =" & iDoc, | 
db, adûpenStatic, adLockOoptimiatic 
If rs.RecardCount = 0 Then 
Call cmdClear Click 
Else 
tEtDocNo. Text = iDoc 
txtSuppHo. Text = ra! [Supplier No] 
txtSuppName. Text = rs! [Supplier Hame] 
dtpDate. Value = Format (rs! [Date], "DD/M/TYTI") 
txtRemark. Text = rs! [Remark] 
MSFlexGrid1.Rows = ra.,RecordCount + 2 
1 = 0 
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Do Until rs.EÛF 

E El 

MSFlexGrid1 .TextMatrizx (i, i 
MSFlexGrid1.TextMatrizx (i, 1 rsa! [Phone Name] 
MSFlexGrid1.TextMatrizx (i, 2# . r3! [PhoneModal Name] 
MSFlexGrid1.TextMatrizx (i, 3 rs! [Unit Description] 
MSFlexGrid1.TextMatrizx (i, = rs! [ŞuantiTty ] 
MSFlexGrid1.TextMatrix (1, = rg! [Rate] 
MSFlexGrid1.TextMatrizx (i, = rs! [Amount ] 
cubRow . AddItem i 

rs .MoveNext 


Loa 
rs. HoveFirat 
cmdInyoice . Enabled = 1 
If r3! [Verify] = True 
cubverify .Enabled = False 
cmudSavwe . Enabled = False 
cmdDelete. Enabled = False 
cmdInyvoice. Enabled = True 
Else 
cubverify . Enabled True 
cmiSaywe . Enabled = True 
cudDelete . Enabled True 
cmdInyvoice . Enabled = True 
End If 
End If 
iÃûmount = Û0 
For i1 = 1 To MSFlexGrid1.Rows - 1 
iAmount = iAmount + Val (MSFlexGrid1.TextMatrizx (i, 6)] 
Wext i 
MsgBox "A11 Amount i3 : " & iAmount, YbInformation + ¥YbOKOnly, "Purchases" 
End If 


End Suk 
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Hi Project? - FrmPurchases (Code) 


Form r| Load 


Private Sub Conmmand4 Click () 


If cmbProcess.Text = "Add" Then 
Call AddInGrid 
Elzelf cmbPracessz.Text = "Edit" Then 
Call EditInGrid 
Elszelf cmbPraocess . Text = "Delete" Then 
If cmbRaw. Text = "" Then 
MsgBox "Please Chossing The Row Humber Tou Want To Editing 1 " 
viCritical + ¥bOROnly, "Purchases" 
cubkow . SetFocus 
Exit Sub 
End If 
cubRow . Clear 
Far i = 1 To MSFlexzGrid1.Rowa = 2 
MSFlexGrid1.TextMatrix (i, O0} = i 
cubÊow . AddItem i 
Hext i 


r 


iAmount 4 
Far i = Ta MSFlexGrid1.Rows - 1 
iAmount = iAmount + Val (MSFlexGrid1 .TextMatriz (i, 6} } 
Wext i 
MsgBox "All Amount is : " &é iAmount, vbInformation + vbOROnly, "Purchases" 1 


End 1f 


Private Sub Form Load() 
Call cmdiClear Click 
End Sub 
Private Sub MSFlexGrid1 DblClick () 
If MSFlezGrid1.Row = O0 Then Exit Sub 
tETSuppHn . Text = MSHFlexGrid1.TextHatrix (MSHFlexGrid1 .Row, 0) 


tETtSuppName . Text = MSHFlexGrid1. TextMatrizx (MSHFlexGrid1.Row, 1)} 


End Sub 
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Hi Project? - FrmPurchases (Code) 


(Beneral) 


¥| |MSHFlexgridAlignment اا‎ 


Private Suk txtFind Change () 
Call cmdFind Click 
End Sub 
Private Sub MSHFlexgridAlignment ( ) 


HSHFlexGrid1.Clear 
HSHAFlexGrid1 .Rows 2 

Set HSHFlexGrid1.DataSource 
MSHFlexGrid1.Cols = 2Z 
MSHFlexGrid1 .TextMatrizx (O, 
MSHFlexGrid1 .TextMatrizx (O, 
MSHFlexGrid1 .Co1lWidth (0} 500 
MSHFlexGrid1 .Co1lWidth (1) 2200 
MSEHFlexGrid1.ColAlignment (O) = 1 


pt 


= "Number" 
"Supplier Number" 


0j 
1) 


End Sub 


EOE 


Fm Project1 - FrmPurchases (Code) 


(General) ¥ mM SFlexGridAlign mentAccount ¥ 


Private Sub MSFlexGridAlignmentAccount () 


MSFlexGrid1l. 
MSFlezxGrid1 . 
MSFlexGrid1 . 


= "Humbe r™ 


"Phone Name™ 
"Phane Model™ 
"Unit™ 
"Quantity™ 
"EFL 


= "Amount™ 


)0 
(1 
ر2 
(3 
(4 
(د 
6 


= 300 
= 1500 


1800 
500 
800 


800 


= 800 


TextMatrizx (O, 
TextMatrix (O, 
TextMatrix (O, 
TextMatrix (O, 
TextMatrix (O, 
TextMatrizx (O, 
TextMatrix (O, 
ColWidth (0) 
ColWidth (1] 
ColWidth (2) 
cColWidth (3] 
ColWidth (4] 
ColWidth (5) 
ColWidth ( 6] 


ColAlignment (0) 
ColAlignment (1) 


١ 


ColAlignment (2 


ColAlignment (3) 
ColAlignment (4) 
ColAlignment (5) 
ColAlignment (6) 
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MSFlexGrid1. 
MSFlexGrid1 . 
MSFlexGrid1. 
MSFlexGrid1l. 
MSFlexGrid1. 
MSFlexGrid1. 
MSFlexGrid1. 
MSFlexGrid1 . 
MSFlexGrid1. 
MSFlexGrid1. 
MSFlexGrid1 . 
MSFlexGrid1. 
MSFlexGrid1l. 
MSFlexGrid1. 
MSFlexGrid1. 
MSFlexGrid1. 
MSFlexGrid1. 
MSFlexGrid1. 
MSFlexGrid1. 
MSFlexGrid1. 
MSFlexGrid1l. 


Sub 


End 


FM Project? - FrmPurchases (Code) 


(General) ¥ | |RefreshPhoneMoadlal ¥ 


Frivate Sub RefreshPhone (| 


cembPhoneName . Clear 
If ra.State = adS5tateÛpen Then rs.Close 
rs.Open "[Phone]", db, adûÛpenStatic, adLockReadûnly 
If rsa.RecordCount = Û Then 
cnubPhoneName . AddItem "Enpty" 
cubPhoneName . Text = cmbPhoneName . List (0) 
Else 
D5 Until rz3.EÛF 
cmbPhoneName .AddIten rs! [Phone Name] 
ra .MoveNext 
Loop 


End If 
End Sub 
Private Sub RefreshPhoneModal (} 


cmbPhoneModalName . Clear 
Tf rs.5tate = adStateûÛpen Then rs.Clase 
ra.0pen "SELECT * FROM [PhoneModal Query] WHERE [Phone Hame] ='" & cmpkbPhoneName & 
"I", db, adÛpenStatic, adLockReadûÛnly 
If rs.RecordCount = Û0 Then 3 
cubPhoneModalName . AddItem "Empty" 
cubPhoneModalName . Text = cmbPhoneModalName .List (0) 
Else 
Da Until rs.EÛF 
cmbPhoneModalName .AddlIten ra! [PhoneModa1 Name] Î 
ra .HoveNext 
Loop 
End If 


End Sub 
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Hm Project1 - FrmPurchases (Code) 


¥| |KeyPress ¥ 


Private Sub RefreshUnit [} 


If ra.State = adStateÛpen Then rs.Close 
rs.0pen "SELECT * FROM [PhoneModal Query] WHERE [PhoneModal Name] ='" & 
cmbPhoneHodalName & "'", db, adûpenStatic, adLockReadûnly 
If rs .RecaordCount = 0 Then 
tEtUnit. Text = "unknown" 
Else 
tEtUnit. Text = rs! [Unit Description] 
End If 


End Sub 
Private Sub txtQTY KeyPress (KeyAscii As Integer) 


Dim atrValid As String 
strValid = "0123456789." 
Tf Keyûscii > 26 Then 
Tf InStr (strValid, Chr (KeyAsci1]} } 
KeyAscii = Û 
End If 
End If 


| 


End Sub 
Private Sub tatRate KeyPress (KeyAscii As Integer) 


Dim atr¥alid As String 
strValid = "0123456789." 
Tf Keyûscii z 26 Then 
If InStr (strValid, Chr (KeyAscii}} = Û0 Then 
KeyAûscii = Û 
End If 
End If 
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Ml Project - FrmPurchases (Code) EEK 
(General) T | jAddlmaricl چ‎ 


Private Sub AddInGrid () 


If cmbPhoneName .Text = "" Then 
MsgBox "Please Enter The Phone Name 1", vbCritical + ¥bOROnly, "Purchase" 
cnbPhoneName . SetFocus 
Exit Sub 

End If 


If cmbPhoneModalName. Text = "" ûr cmbPhoneHodalName . Text = "Empty" Then 
MHagBox "Please Enter The Phone Model !", ¥bCritical + vbOKOnly, "Purchase" 
cnbPhoneModalName . SetFocus 
Exit Sub 

End If 


If TIrin (txtQTI.Text}) = O Or Trin (txtQTI.Text) = "" Or Kot IsNumeric (tZtQTYI .Text] Then 
MsgBox "Please Written The Yuantity Requerd 1", ¥bCritical + vbOKOûnly, "Purchase" 
tEtQTI . SetFocus 
Exit Sub 

End If 


If Trin (txtRate .Text}) = 0 ûr Trin (tztRate.Texgt) = "" ûr Not IsNumeric (tztEate. Text} Then 
MsgBox "Please Enter The Price 1", ¥bhCritical + yhOKOnly, "Purchase" 
EEtERate . SetFocus 
Exit Sub 


End 1f 0 


Far i = Û To MSFlexGrid1.Rows - 1 
If MSFlexzGrid1.TextMatriz (i, A2} = cmbPhaneModalName . Text Then 
MHsgqBax "This Phone Model Entered Another Time !", vbhCritical + ¥bOKOnly, "Purchase" 
Exit Sub 
End If 


Wext i 
FF 
n 
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If MSFlexGrid1.Rows = 2 Then 
MSFlexGrid1.TextMatrizx (1, 0} = MSFlexGrid1.Rows - 1 
MSFlexGrid1.TextMatriz (1, cubPhoneName 
MSFlexGrid1.TextMatrizx (1, 2)] = cmbPhoneModalName 
MSFlexGrid1.TextMatrizx (1, 3} = txtUnit . Text 
MSFlexGrid1.TextMatriz (1, = tKTQTI .Text 
MSFlexGrid1.TextMatriz (1, = tEtRate . Text 
MSFlexGrid1.TextMatriz (1, = Val (tEtQTI. Text} * Val (ttRate . Text} 
cmbRow . AddItem "1" 
tETÛTI . Text = "r 
tEtRate. Text = "™ 
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 
MSFlexGrid1.Refresh 


iÃmount = Û 
Far i = 1 To MSFlezGrid1.Rows - 1 
iAmount = iAmount + Val (MSFlexGrid1.TextMatriz (i, 6) 
Wext i 
HasgBo# "All Amount is : " & iAmount, vbInformation + vbOKÛnly, "Purchases" 


= MSFlexGrid1.Rows = 1 

= zmþPhoneName . Text 
cmbFhoneModa 1WName . Text 

= txEUnit . Text 
EEEQTT . Text 

= txERate 

= Val ڼ(tXEQTY.Text]}‎ * Val (tztRate. Text) 


فا 
> 


MSFlexGrid1.TextMatrix (MSFlexGrid1 . Rows 
MSFlexGrid1.TextMatrix (MSFlexGrid1 . Rows 
MSFlexGrid1.TextMatrix (MSFlexGrid1 . Rows 
MSFlexGrid1.TextMatrix (MSFlexGrid1 . Rows 
MSFlexGrid1.TextMatrix (MSFlexGrid1 . Rows 
MSFlexGrid1.TextMatrix (MSFlexGrid1 . Rows 
MSFlexGrid1.TextMatrix (MSFlexGrid1 . Rows 
cmbRaow . AddItem MSFlexGrid1.Rows - 1 
txtQTY .Text = "r" 

txtRate. Text = "r" 

MSFlexGrid1.Raows = MSFlexGrid1.Rowa + 1 


فإ 


| | هل فر فا 
o a‏ 


= 


iùmount = Û 
Far ã1 = 1 To MSFlezGrid1.Rows - 1 
iAûmount = iAmount + Val (MSFlexGrid1.TextMatriz (i, 6) | 
Next i 
MagqBo# "All Amount is : " & iAmount, vbInformation + vbOKÛnly, "Purchases" 
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ject1 - FrmPurchases (Code) 


Number You Want Editing '", ybCritical + "Pjrthase™ 


HagGBox 1Î he Phone Name 1! yECritical + vbOKOnly, "Purchase" 
cmbPhoneNam EFozı 


cmbFhoneModalName. Text = "" 
MsgBox "Please 


cemEFhoneModalName . 


Û0 Or TIriî(EXEQT 


The Quantity 


= "" Ûr Not IsNumeric (txEQTY . Text) 
, YbCritical + ¥bOKONIY, 


Then 
"Purthasze” 


0 Or Tri ({txtRate.Tegt) = "" ûr 


The Price !", TBCritical + TbOK 


eExtMatri 2 
z2 


"This Phone Model 


= embPhaoneModalName . Text 


Eentered in Another 


itical + ¥bDOKOnIy, "Purchase™ 
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MSFlexGrid1 . TextMatrix (CMDEOM , = cmbPhaonelName . Text 
id1.TextMatrix (cmbRow, 2] = cmbPhoneModalName . Text 
id1.TextMatrix (CMbDROW, tETUnit . Text 
id1.TextMatrix (cmMbRONW, = tELQTI .Tekt 
id1. TextMatrix (CMbDROW, = tKTRate, Text 
id1. TextMatrix (cMbDRONW, Val (tEtQTIY. Text) * Val (txtRate. Text) 


TEEQTY .Tegt = 
tXtRate . Text = "| 


iAûmount = Û 
Far i = 1 To MSFlexGrid1.Rows - 1 
iAmount = iAmount + Val (MSFlexGrid1.TextMatriXx (1, 6) 
Next i 
HsgBox "A11 Amount is : " £ ilmount, vbInformation + ¥bOKÛnly, "Purchases" 


End Suk 
Private Sub GetNaPhanePhoneMadal (} 


If pt.State = adStateûpen Then pt. Close 
pt .ûpen "SELECT * FROM PhoneModal Query WHERE Phone Name ='" & MSFlexGrid1.TextMatrix (i - 1, 1) & _ 
"' AND PhoneModal Name ='" & MSFlexGrid1.TextMatrix (i - 1, 2) é& "'", db, adOpenStatic, adlLockReadOnly 
If pt. RecardCount = Û0 Then 

gPhone = pt!Phone No 

gPhoneModal = pt !PhoneModal No 
End If 


End Sub 
Private Sub GetUnitNo () 


lf pt. State = adStateûpen Then pt, Close 
pt .Open "SELECT * FROM [Unit] WHERE [Unit Description] ='" & MSFlexGridl.TextMatrix (i - 1, 3) & "'", | 
db, adûpenStatic, adLockReadûnly 
lf pt. RecordCount = Û0 Then 
gqUnit = Û 
El 
gUnit = pt! [Unit Ho] 
End If 
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mi Project1 - FrmPurchases (Code) 


(General) T| jGetPreRate ¥ 


Private Sub GetPreRate () 


rs3.5tate = adStateÛpen Then rs.Close 
. Open "SELECT * FROM [PhoneRate] WHERE [PhoneModal Name] ="" & cmbPhoneModalName & 
ORDER BY [Document No] ASC;", db, adûpenStatic, adLlLockReadûnly 
ra.RecordCount = 0 Then 
txtPreRate. Text = "Not Found” 
Else 
rs.MoveLast 
tEtPreRate . Text = ra! [Rate] 
End If 


End Sub 


E 


الشكل (۳.۷۲) برمجة واجهة المشتريات / الجزء الحادي و العشرون 


Phone Model Purchases 


2 Phones Model Purchases Menu Winda 


The FPhoneModel Purchases Menu in data baze to chosing 
please double click on phoneModel Purchases in network 


Search : ابابا]|]|]ً‎ In : ÎembFieldN ame ¥ El 


الشكل (۳.۷۳) واجهة الهواتف المشتراه 


mM Project? - frmViewPhoneModalP (Code) AE 


Private Sub cmiClose Click () 


Set rs = Kothing 
Unload He 


End Sub 


Private Sub cmûGo Click ( 


If rs.5tate = adStateÛpen Then rs.Close 

ra.Ûpen "SELECT * FROM [PhoneModal Query] WHERE [" & Trin (cmbFieldName.Text) & "| LIRE 'S"T E | 
Trin (txtFind. Text) & "$'", db, adûOpenStatic, adlLockOptimistic 

Call MSEHFlexgridAlignment 


End Sub 
Private Sub Form Load () 
ûn Error GoTo er 
Call ConnectionDatabase 


If rs3.5tate = adStateÛpen Then ra.Close 
ra.Ûpen "[PhoneModal ÇGuery]", db, adûpenStatic, adLockOptimistic 


Far i = Û Ta rs.Fields.Count - 1| 
cmbFieldName .AddItem rs.Fields. [ten (1) .HKame 
Next i 

cemEFieldWName . Text = cmkFieldName . List (0) 
Call MSHFlexgridAlignment 

Exit Sub 


MsgBox err. Description, vDCritical + vbOKOnly, "Phone AND Phone Model™ 


End Sub 


الشكل )".۷٤(‏ برمجة واجهة الهواتف المشتراه / الجزء الاول 


Hi Project1 - frm¥iewPhaneModalP (Code) a) 


5 | Change 
Private Sub MSHFlexGrid1 DblClick () 
If MSHFlexGrid1.Row = Û0 Then Exit Sub 


FrmPurchases . cmbPhoneName = MSHFlexGrid1.TextMatrix (MSHFlexGrid1 .Row, 1)} 
FrmPurchases . cmbPhoneModalName = MSHFlexGrid1.TextMatriz (MSEFlexzGrid1.Row, 3) 


Private Sub txtFind Change () 
Call cmdGo_ Click 


End Sub 


n 


الشكل )۳.۷١(‏ برمجة واجهة الهواتف المشتراه / الجزء الثاني 


Fm ProjecEî - frmnViewPhanemaodalP® fCode) 
(General ] | mM SHFIlEeEw CIMA gNmENt 


Priwate Sub HMSHFlexgFrFidATlignment ( ) 


MSHFlexGridad1 . Clear 
MSHFlIlexGrid1 . Rows — 2 
Set MSHFlerGridil . DataSource — 


MSHFlexGrid1 .ColWidth (O 1000a 
MSHFlexGridad1l . ColWidtrth (17 15o 
MSHFlexGrid1 . ColWidtrth (27 1200 
MSHFlexGrid1l . ColWidtrth (3J 16o oa 
MSHFlexGrid1 .ColWidtrth (4] eles! 
MSHFlexGrid1 .ColWidrth (5J TOO 
MSHFlexGrid1 . ColWidth (6 TOO O 


MSHFlexGrIi1d1l1 . ColLlAlignment (O) 
MSHFlexGrFri1d1l . ColLlATIignment (1} 
MSHFlexGrIiI1d1 . ColLlAlignment (2) 
MSHFlexGri1d1l1 . ColLlALlIignment (3) 
MSHFlexGrIi1d1l .ColLlALlIignment (43) 
MSHFlexGri1d1l . ColLlAITIIignment (5) 
MSHFlexGrFrIi1d1l .ColLlAlignment (6) 


MM MM MM BM BH BH 


MSHFlexGrFI13d1 .ColLlALlignmenTtFixed (O) 
MSHFlexGrFiI131 . ColLlALlignmenTtFixed (1) 
MSHFlexrGrFI13d1 .ColLlALlignmenTtFixed (2) 
MSHFlexGFI131 . CoLlALlignmenTtFixed (3) 
MSHFlexrGrFI131 .ColALlignmenTtFixed (4) 
MSHFlexGFIi131 .ColAlignmenTtFixed (5) 
MSHFlexrGrFI131 .ColLlALlignmenTtFixed (6) 


ٹیا ٹیا ٹیا ٹیا ٹیا یا یا 


MSHFlexrGrFI1IGd1 .ReFresh 


MSHFlexGrFrI1Id1l .TextMaTtri=x (O, 0O "Phone Numbe p™ 
MSHFlexrGFI1IG31l1 .TexztMaTtrix (O, "Phone Name™ 
MSHFlexGrFrid1l1l .TextMaTtrixzx (O, "PhoneModel Number ™ 
MSHFlerGFi13l .TextMatrixzx (O, 3 "Phone Mode 1]™ 
MSHFlexGrFidl1l .TextMaTtrixzx (O, E اہ ا ا ز۴ ا‎ 

MSHFlexrGFi13l .TextMatrixzx (O, 3 “REO Aep™ 
MSHFlexGrFridl .TextMaTtriz (O, "Interset™ 


الشكل )۳.۷١(‏ برمجة واجهة الهواتف المشتراه / الجزء الثاني 


Retore Back Up 
f Pastor Back Up 


Tou can in hiz window restore some one back up 


File Harme Size [Byte] Lreakte Dale 
Backup. bak 483328 13-30-22 EAB: 


الشكل (۳.۷۷) واجهة إستعادة نسخة إحتياطية 
تم التعديل على الخصائص التالية : 


Properties 


Property Name 
Restore Back Up 
2-Sizable 
False 
2 —- CenterScreen 
&HS8000000E& 
0-None 
0 — None 
True 
Bitmap 
True 
0 - Transparent 
You can in this .... 
&H000000FF& 
False 
Operation Restore 
1 - Graphical 
Bitmap 
Exit 
1 ¬ Graphical 
Bitmap 


Property Name 
Caption 
BorderStyle 
ComtrolBOX 
StartUpPosition 
BackColor 
BorderStyle 
BorderStyle 
Stretch 
Picture 
AutoSize 
BackStyle 
Caption 
ForeColor 
Visible 
Caption 
Style 
Picture 
Caption 
Style 
Picture 


Name 


FrmRestore 


Picture1 


Imagel 


Label1 


File1 
MSHFlexGrid1 


cmdRestore 


cmdExit 


Control 


PictureBox 


Image 


Label 


FileListBox 
MSHFlexGrid 


CommandButton 


CommandButton 


عمل النموذج : 


. عند تحميل النموذج يتم إظهار النسخة الاحتياطية في الشبكة‎ .١ 

. عند الضغط على زر عإ0اومR‏ ۸٥10اهإعمم0‏ يتم عمل إرجاع لنسخة 
اخاظة قاغةة السنات. 

۳. عند الضغط على زر )8×1 يتم إخفاء النموذج . 


برمجة النموذدج 
mM Project1 - FrmRestore (Code) EEK)‏ 


cmdRestore ¥| (Click ¥ 


Private Sub CmdExit Click () 
Unload Me 

End Sub 

Private Sub cmdReatore Click () 


Dim gFilename As String 


= adS5tateÛpen Then rs.Claose 

= adStateÛpen Then dbh.Close 

If Dir {App.Path & "\Project 2012.mdb") <» "" Then 

Kill App.Path & "\Project 2012 .mdb" 

FileCopy App. Path € "\Backup\" & gFilename, App.Path & "\Project 2012 .mib" 

Rill App.Path & "\Backup\" & gFilename 

MsgBox "The Restor Back Up is Completed Succesfully !", vbInformation + ¥vbûKûnly, "Masseage" 


Call Form Load 
F 
۴ 


| 


End Sub 


الشكل (۳.۷۸) برمجة واجهة إستعادة نسخة إحتياطية / الجزء الاول 


Mi Project1 - FrmRestore (Code) EEE 


Private Sub Form Load () 


Dim Item As ListIten 
File1.Path = App .Path ë& "\Backup" 
File1.Refresh 
{SFlexGrid1.Clear 
ISFlexGrid1.Rows = 1 
SFlexzGrid1 .Cols = 3 
SFlexGrid1.TextMatrizx (O0, 0)] "File Name" 
ISFlexGrid1.TextMatrizx (O, 1} "Size (Byte) " 
SFlexGrid1.TextMatrizx (O, 2) "Create Date" 
{SFlexGrid1.ColAlignment (O0) = 
SFlexGrid1.ColAlignment (1} = 
FlexGrid1.ColAlignment (2) 
1.FixedAlignment (0) 
1.FixedAlignment (1) 
1.FixedAlignment (2) 
1.ColWidth (0) = 3500 
i1d1.ColWidthk (1) 1500 
MSFlexGrid1.ColWidth (2) = 2500 
For i Û0 To File1 .ListCount - 1 
MSFlexGrid1.Rowa = 1i + 2 
MSFlexGrid1.TextMatrix (1 
MSFlexGrid1.TextMatrix (1 
MSFlexGrid1.TextMatrix (1 
Hext i 
If File1.ListCount = 0 T 


دم دعم دم ji‏ 


TM o 
I il 
شا شتا فت‎ 


EE] 


E] 


O} = Filel.Li3st (i} 
1} FileLen (App .Path & "\Backupı" & File1.List (1)) 
2 FileDateTime (App .Path & "\Backup\" & File1.List (i) 


hen cmdRestore. Enabled = False 


الشكل (۳.۷۹) برمجة واجهة إستعادة نسخة إحتياطية / الجزء الثاني 


Purchases Documents 


=| Purchases Documents wirda 


Wiewing all Documents Purchases „ Please Double Click on 
Document ta Review and Prazzing . 


Search : Document_H o ¥ 0ا‎ 


Document Nurnber ıpplier Huumb Supplier Hame Remark. 


الشكل )۳.۸١(‏ واجهة مستندات وثائق المشتريات 


تم التعديل على الخصائص التالية : 


Properties 

Control Name Property 
Name 

Caption PurchasesDocuments 

frmViewPurchase | BorderStyle 2-Sizable 

Documents ComtrolBoxX False 

StartUpPosition 2 —- CenterScreen 

BackColor &H8000000E& 

BorderStyle 0-None 

BorderStyle 0 — None 

Image Imagel Stretch True 

Picture Bitmap 

AutoSize True 

BackStyle 0 - Transparent 

Purchases 

Documents window 


Property Name 


PictureBox Picture1 


Caption 


&H000000FF& 
True 

0 - Transparent 
Viewing all 
Documents 
&HOOFFO0000& 
True 

0 - Transparent 
Search : 
&HOOFFO0000& 
0 — LeftJustify 
cmbFieldName 
Exit 

1 - Graphical 
Bitmap 

Go 


عمل البرنامج : 


ForeColor 
AutoSize 
BackStyle 
Caption 


ForeColor 
AutoSize 
BackStyle 
Caption 
ForeColor 
Alignment 
Text 
Caption 
Style 
Picture 
Caption 


Label2 


Label3 


txtFind 
cmbFieldName 


cmdClose 


cmdGo 
MSHFlexGrid1 


Label 


TextBox 
ComboBox 


CommandButton 


CommandButton 
MSHFlexGrid 


.١‏ عند تحميل النموذج يتم فتح الإتصال بقاعدة البيانات وفتح 
الإستعلام Purchase Header Query‏ و المرور علی جمیع 
الحقول و تعبئة N2‏ ]1ء۴ طصء باسماء الحقول و استدعاء 
الجرlء MSHFlexgridAlignment‏ 

1. عند النقر المزدوج على رقم المستند يتم تعبئة صناديق النص 
الموجودة في نمودج sعeیsھطcاں‏ ۲ "۴۲ برقم المورد و اسمه. 

۳. عند الضغط على زر أمر 60 يتم فتح الإستعلام 
Purchase Header Query‏ و استدعاء الإجراء 
MSHFlexgridAlignment‏ 


= 


rs .0pen "SELECT * FRGM [Purchase Header query] WHERE [" & Trin (cmbFieldName .Text) 
"] LIKE '%" & Trim (tztFind.Text} & "%'", db, adûOpenStatic, adLockEOpPTtiImMiStiCG 


mi Project? - frmYiewPurchaseDocuments (Code) 


Frivate 3uk cmdClose Click () 


Set rs = Nothing 
Unload Me 


End Sub 
Frivate Sub cmdGo_ Clickl) 


If rs.State = adStateÛpen Then rs.Close 


Call MSHFlexgqridAlignment 
End Sub 
Private Sub Form Load () 

On Error GoTo er 

Call ConnectionDatabase 

If rs.State = adStateÛpen Then rs.Close 

rs.Û0pen "[Purchase_ Header query]", db, adûOpenStatic, adLockOptimistic 

For ã = Û0 TO r£s.Fields.Count — 1 

cmbFieldName . AddItem rs.Fields3 . Iten (i) .Name 

Next i 

cmbFieldName . Text = cmbFieldName .List (O0} 

rs.Sort = "Document _ Ho" 

Call MSHFlexgqridAlignment 

Exit Sub 

MsgBox err. Description, vbCritical + ¥bORKOnly, "View Doc Purchase Order" 
End Sub 


Private Sub MSHFlexGrid1 DblClick () 


If MSHFlexGrid1.Row = O0 Then Exit Sub 
1Doc = MSHFlexGrid1.TextMatrix (MSBHFlexGrid1. Row, 0) 


الشكل )۳.۸١(‏ برمجة واجهة مستندات وثائق المشتريات / الجزء الاول 


mM Project1 - frmViewPurchaseDocuments (Code) EME) 


[txtrinad ¥ | Change ج‎ 


Private Suk txtFind Change () 


Call cemdGo Click 


الشكل (۳.۸۲) برمجة واجهة مستندات وثائق المشتريات / الجزء الثاني 


mı Project1 - frmviewPurchaseDocuments (Code) ENES 
(General ) PMSHFlexgridAlignmuent 


Private Suk MSHFlexgrFridAlignment ( )J 


MSHFlexGlri1d1.Clear 
MSHFlexGrid1.Rows = 2 
Set MSHFlexGrid1l . DataSource 
MSHFlexGrid1 .ColWidth (0) = 1 
MSHFlexGrid1 .ColWidtreh (1} ۴ 
MSHFlexGrid1 .Co1lWidth (2} 
MSHFlexGrid1 .ColWidth (3J 
MSHFlexGrid1 .ColWidth (4]} 
MSHFlexGrid1.ColWidth (5} 
MSHFlexGrid1.ColWidth (6]} 
MSHFlexGrid1.Col1lWidth (7) = 2000 
MSHFlexGrid1.ColWidth (8J = 1000 
MSHFlexGrid1.Col1lWidth (9J = 1000 
MSHFlexGrid1.ColWidth (10}J = 1000 
MSHFlexGrid1.Co1lWidth (11) = 1000 
MSHFlexGri1d1.ColAlignment (0) 
MSHFlexGri1d1.ColAlignment (1} 
MSHFlexGrid1.ColAlignment (2Z) 
MSHFlexGrid1 .ColAlignment (3) 
MSHFlexGridl1l.ColAlignment (4) 
MSHFlexGridl .ColAlignment (5) 
MSHFlexGridl .ColAlignment (6) 
MSHFlexGrid1l .ColAlignment (T} 
MSHFlexGrid1 .ColAlignment (8) 
MSHFlexGrid1 .ColAlignment (3) 
MSHFlexGrid1.ColAalignment (10]J —= 2 
MSHFlexGrid1 .ColAlignment (11} = 2 
MSHFlexGrid1.ColAlignmentFixed {0} 
MSHFlexGrid1.ColAlignmentFixed [1] 
MSHFlexzGrid1.ColAlignmentFixed [2) 
MSHFlexGrid1.ColAlignmentFixed [3] 
MSHFlexGrid1.ColAlignmentFixed (4] 
MSHFlexGrid1.ColAlignmentFixed [5] 
MHSHFlexGrid1.ColAlignmentFixed ( 6} 
MHSHFlexGrid1.ColAlignmentFixed ( 7} 
MHSHFlexGrid1.ColAlignmentFixed ( 8)} 
MSHFlexGrid1.ColAalignmentFixed ( 9} 
MSHFlexGrid1.ColAaAlignmentFixed (10] = 3 
MSHFlexGrid1.ColAligqnmentFixed (11] = 3 
HSHFlexGrid1. Refresh 
MSHFlexGrid1l .TextMatrizx (O, = "Document Number™ 
MSHFlexGrid1l .TextMatrizx (O, = "Data™ 
HSHFlexGrid1 .TextMatrizx (O, #2 "Supplier Number™ 
HSHFlexGrid1 .TextMatrix (O, 3 "Supplier Name" 
HSHFlexGrid1 .TextMatrizx (O, "Remark™ 
HSHFlexGrid1 .TextMatrizx (O, = "Yerifly™ 
HSHFlexGrid1 .TextMatrizx (O, "Phone Name™ 
HSHFlexGrid1 .TextMatrix (O, FT) = "Phone Hodel™ 
MHSHFlexGrid1 .TextMatrizx (O, 8 nuni t"] 
MSHFlexGrid1 .TextMatrizx (O, = "Quantity™ 
MHSHFlexGrid1 .TextMatrizx (O, ™Price™ 
MSHFlexGrid1. TextMatrizx (O, = Amount ™ 

End Sub 


alm 


RJ RJ Kj Bj Bi i HÛ BH FB FS 


الشكل (۳.۸۳) برمجة واجهة مستندات وثائق المشتريات / الجزء الثالث 


Clients Menu 
=| Llients Menu window 


The Clients Menu in Data Base , to Lhozing Please 
Double Click on Client in Hebwork. 


earch : in: ÎCustomer_No ¥ 1a0 


lum bE Lllent Harne Address Phone Fax 
1 Amar lrbid F934 U2A4SEFBIEIA4 


الشكل )۳.۸٤(‏ واجهة عرض العملاء 
تم التعديل على الخصائص التالية : 


Properties 


Property Name | Property Name 
Caption Clients Menu 


BorderStyle 2-Sizable 
ComtrolBox False 
StartUpPosition 2 - CenterScreen 
BackColor &H8000000E& 
BorderStyle 0-None 
BorderStyle 0 — None 
Image Imagel Stretch True 

Picture Bitmap 
AutoSize True 

BackStyle 0 - Transparent 
Caption Clients Menu 
ForeColor &H000000FF& 
Label2 AutoSize True 


Control Name 


FrmViewCustomer 


PictureBox Picture1 


Label1 


0 - Transparent 


The Clients Menu... 


&HOOFFO0000& 
True 

0 - Transparent 
Search : 
&HOOFFO0000& 
True 

0 - Transparent 
In: 
&HOOFF0000& 
0 — LeftJustify 
cmbFieldName 
Exit 

1 ¬ Graphical 
Bitmap 

Go 


Customer‏ و المرور على جميع الحقول و تعبئة 


BackStyle 
Caption 
ForeColor 
AutoSize 
BackStyle 
Caption 
ForeColor 
AutoSize 
BackStyle 
Caption 
ForeColor 
Alignment 
Text 
Caption 
Style 
Picture 
Caption 


Label3 


Label4 


txtFind 
cmbFieldName 


cmdClose 


cmdGo 
MSHFlexGrid1 


Label 


TextBox 
ComboBox 


CommandButton 


CommandButton 
MSHFlexGrid 


cmb۴e1Name‏ باسماء الحقول و استدعاء الإجراء 
MSHFlexgridAlignment‏ 
1. عند النقر المزدوج على اسم العميل يتم تعبئة صناديق النص 
الموجودة في نموذج ٥اة8‏ ۴۲ برقم العميل و اسمه . 
۳. عند الضغط على زر أمر 60 يتم فتح الإتصال بقاعدة البيانات 
والإستعلام من جدول ١إ0106ءا]‏ و استدعاء الإجراء 
MSHFlexgridAlignment‏ 


برمجة النموذج : 


Proje Via 3 . m 
(General) ¥ MSHFlexgridAlignment ¥ 
ا‎ 


Private Sub MSHFlexGrid1 DblClick () 
Tf MSEHFlexGrid1.Row = 0 Then Exit Sub 
FrmSale.txtCustomerNa .Text = Val (MSHFlexGrid1. TextMatrix (HSHFlexGrid1.Row, 0)) 
FrmSale.tztCustomerWame . Text = MSHFlexGrid1.TextMatrizx (HSBFlexGrid1.Row, 1)} 
Me . Hide 

End Sub 

Private Sub txtFind Change [) 


Call emûGo Click 


End Sub 


الشکل )۳.۸١(‏ برمجة واجهة عرض العملاء / الجزء الاول 


FM Project1 - Frm¥iewCustomer (Code) EEE 


Private Sub cmdClose Click () 
Unload Me 
End Sub 
Private Sub cmdGo Click () 
If rs.State = adStateÛpen Then r3.Close 
rs .Ûpen "SELECT * FROM [Customer] WHERE [" & Trin (cmbFieldName.Text) & "] LIKE "$3" & 


Trin (txtFind. Text} & "$'", db, adûOpenStatic, adLockûOptimistic 
Call MHSHFlexgridAlignment 


Private öSukb Form Load() 


On Error GoTo er 
Call ConnectionDatabase 
If rs.5State = adS5tateûpen Then rs.Closze 
rs.Ûpen "Customer", db, adûpenStatic, adLockûoptimistic 
For i = Û To r3.Fields.Count = 1 
cmbFieldName. AddItem rs3.Fieldsz. Iten (i) .Hame 
Wext i 
cmbFieldName . Text = cmbFieldName . List (0) 
Call HSHFlexgridAlignment 
Exit Sub 


MsgBox err. Description, vYbCritical + ¥bOROnly, "Clients Menu" 


End Sub 


الشكل )۳.۸١(‏ برمجة واجهة عرض العملاء / الجزء الثاني 


Ml Project1 - FrmViewCustomer (Code) 


(aeneral) | (MSHFlexgridAlignment ¥ 


Private Sub MSHFlexgridAlignment | 


MSHFlexGrid1.Clear 
MSHFlexGrid1.Rows = 2 
Set MSHFlexGrid1. DataSource = rs 


SHFlexGrid1 . 500 
SHFlexGrid1 .ColWidth ( 1500 
SHFlexGrid1.ColWidth 1600 
SHFlexGrid1.ColWidth (3) = 1600 
1SHFlexGrid1.ColWidth = 1600 
1SHFlexGrid1.ColWidth (5) = 1600 
1SHFlexGrid1 .| 1ignment (0) = 
SHFlexGrid1. 1ignment (1) = 
SHFlexGrid1 .| 1ignment (2) = 
SHFlexGrid1. ignment (3) 

SHFlexGrid1 .| 1ignment (4) = 
SHFlexGrid1 . ignment (5) 

SHFlexGrid1. 1ignmentFixed (0) 
SHFlexGrid1. lignmentFixed (1) 
SHFlexGrid1. lignmentFixed (2) 
SHFlexGrid1. lignmentFixed (3) 
SHFlexGrid1. ignmentFixed (4) 
SHFlexGrid1.ColAlignmentFixed (5) 


N TE O O 
û û O û O 
سے اس اس س س‎ 


O O O 
DD O O O Û O O O Û BD CT 
GD pi pi pi Go pa pa Û a a 
j o o o pt pt 

کیا کب شا شا فا فن 


کیا شیا کیا ف ی ف 


SHFlexGrid1., Refresh 


SHFlexGrid1.TextMatriz (0, = "Number" 
SHFlexGrid1.TextMatriz (O0, 1 "Client Name" 
SHFlexGrid1.TextMatriz (0, = "Address" 
SHFlexGrid1 .TextMatriz (0, 3 "Phone" 
SHFlexGrid1.TextMatriz (0, = "Fag" 
SHFlexGrid1.TextMatriz (0, = "E-Mail" 


End Sub 


الشكل (۳.۸۷) برمجة واجهة عرض العملاء / الجزء الثالث 


Phone Meru 


E Phones Menu Wino 


The Phone Menu in data base Io chosing please double 
click on phone ir network. 


earch : | E) | 


1 Hokia 


الشكل (۳.۸۸) واجهة عرض الهواتف 


تم التعرف على كيفبة تعديل الخصائص حيت تم تعذيل الخصائصن 
بالطريقة ذاتها مع الاختلاف في المحتوى . 


عمل البرنامج : 


م۴0 و المرور على جميع الحقول و تعبئة باسماء الحقول في 
MSHFlexgridAlignment‏ 


برمجة النموذج : 


mi Project1 - frmViewPhone (Code) SE 


[Form ¥ Loarcl 


Private Sub cmdClose Click () 
Unload He 
End Sub 


Private Sub cmdGo Click [) 
If rsa.State = adStateGpen Then rs.Close 
rs.Ûpen "SELECT * FROM [Phone] WHERE [Phone Name] LIRE "št" &_ 
Trim (txXtFind.Text}]} & "%'", db, adÛpenStatic, adLockOptimistic 
Call HSHFlexgridAlignment 


End Sub 
Private Sub Form Load () 


Call ConnectionDatabase 

If rs.State = adStateÛpen Then r3.Closze 

rs.Ûpen "[Phone]", db, adOpenStatic, adLockûptimisztic 
Call MSHFlexgridAlignment 


End Sub 
Private Sub MSHFlexgridAlignıment ( } 


HSHFlexGrid1 .Clear 
HSHFlexGrid1.Rows = 2 
Set MSHFlexGrid1.DataSource = 


MSHFlexGridl.TextMatrcizx (O0, 0} "Number™ 
MSEHFlexGridl1l.TextMatrcizx (O, 1} "Phone Name™ 
MSHFlexGrid1.ColWidth (O0} = 500 
MSHFlexGrid1.ColWidth (1} = 3000 
MSHFlexGrid1.ColAlignment (O0}] = 1 
MSHFlexGrid1.ColAlignmentFixed (O}] = 


End Sub 


الشكل (۳.۸۹) برجة واجهة عرض الهواتف / الجزء الاول 


Hm Projectî1 - frmYiewPhaone (Code) 


Private Suk MSHFlexGrid1 DblClick () 


If MSHFlexGrid1.Row = O Then Exit Sub 
frmPhoneHodal .cmbPhoneNa . Text = MSHFlexGri 
1 


1.TextMatrizx (MSHFlexGrid1.Row, 0} 
frmPhoneHodal. txtPhoneName.te = MSfHFlexGr 1} 


d 
d1.TextMatrizx (HSHFlexGrid1 . Row, 
Private Sub txtFind Change () 

Call cmdGo Click 


End Sub 


الشكل )۳.٠١(‏ برجة واجهة عرض الهواتف / الجزء الثاني 


Reports 


BRÊ Reports Window 


You Can in This window viewing Report for VvVastage , Profit 


Reports 


e‏ ا 
Profit Wastage‏ 
Preview Exit‏ 


الشكل )۳.٠۹١(‏ واجهة عرض التقارير 


تم التعديل على الخصائص التالية : 


Properties 


Value 
2-Sizable 
2-CenterScreen 
True 
Bitmap 
&H8000000E& 
0-None 
True 
0 - Transparent 
Reports Window 
&H000000FF& 
True 
0 - Transparent 
You Can 
&HOOFF0000& 

Reports 
1 - Fixed Single 
Profit 
Graphic 
Wastage 
Graphic 
Preview 
Graphic 
Exit 
Graphic 


Property Name 


BorderStyle 
StartUpPosition 
Stretch 
Picture 
BackColor 
BorderStyle 
AutoSize 
BackStyle 
Caption 
ForeColor 
AutoSize 
BackStyle 
Caption 
ForeColor 
Caption 
BorderStyle 
Caption 
Style 
Caption 
Style 
Caption 
Style 
Caption 
Style 


Name 
FrmReports 
Imagel 


Picture1 


Label1 


Label2 


Framel 
optProfit 
optWastage 
cmbPreview 


CmdExit 


Control 
Form 
Image 


PictureBox 


Label 


Frame 
OptionButton 
OptionButton 

CommandButton 


CommandButton 


Preview‏ يتم عرض تقرير بالارباح المتحفققة من 


* عندتفعيل ا Wastage‏ و النقر على زر اور 
e۷اPrev‏ يتم عرض تقرير بالخسائر المترتبةمن 


ا 


Hl MSPPS - FrmReports (Code) 


cmbPreviewr 


3 
Fr] . [Documents 


ce _Details] . [Profit]>= 


FH MSPPS - FrmReports (Code) 
CmdExit 


. [Wastage] 
. [Uni ۴ 


rptWastage. 
.State 
[Wastage] < 0", db, 
aleWastage] 


5 


Private Sub 


الشكل (۳.۹۳) برمجة واجهة عرض التقارير / الجزء الثاني 


Sales documents 
آ‎ Sales Documents windows 


Yiawing all Documents S5 alez „ Please Double Click or 
Document to Review and Prozzing . 


Search : | Documents_MHo ¥ ا‎ 


curment NH uırn Privates | llent Humbe Remark. 


الشكل )۳.۹٤(‏ واجهة عرض المبيعات 


تم التعديل على الخصائص التالية : 


Properties 
Control Name Property 

Name 
Caption Sales documents 
frmViewSale BorderStyle 2-Sizable 
Docuemts ComtrolBOxX False 
StartUpPosition 2 - CenterScreen 
BackColor &H8000000E& 
BorderStyle 0-None 
BorderStyle 0 — None 
Image Imagel Stretch True 
Picture Bitmap 
AutoSize True 
BackStyle 0 - Transparent 
Label1 : Sales Documents 
Caption . 

window 

ForeColor &H000000FF& 
AutoSize True 
BackStyle 0 - Transparent 
Caption Viewing all 


Property Name 


PictureBox Picture1 


&HOOFF0000& 
True 

0 - Transparent 
Search : 
&HOOFF0000& 
0 — LeftJustify 
cmbFieldName 
Exit 

1 ¬ Graphical 
Bitmap 

Go 


عمل البرنامج : 


ForeColor 
AutoSize 
BackStyle 
Caption 
ForeColor 
Alignment 
Text 
Caption 
Style 
Picture 
Caption 


Label3 


txtFind 
cmbFieldName 


cmdClose 


cmdGo 
MSHFlexGrid1 


Label 


TextBox 
ComboBox 


CommandButton 


CommandButton 
MSHFlexGrid 


.١‏ عند تحميل النموذج يتم فتح الإتصال بقاعدة البيانات وفتح 
الإستعلام ]nvoice Header Query‏ و المرور علی جمیع 
الحقول و تعبئة N2٠‏ 1ء۴ اء باسماء الحقول و استدعاء 
'إجرlء MSHFlexgridAlignment‏ 

. عند الضغط على زر أمر 60 يتم فتح الإستعلام 


voice Header Query‏ و استدعاء الإجراء 
MSHFlexgridAlignment‏ 


Fî project1 - frmYiewSaleDocuemts (cC... EEE] 
MSHFlexgridAlignmer ¥ 


(General) 


الشكل )۳.٠١(‏ برمجة واجهة عرض المبيعات / الجزء الاول 


mM Project1 - frmViewSaleDocuemts (Code) 


Private Suk cmdûClose Click [) 


Set rs = Kothing 
Unload Me 


End Sub 
Private Sub cmdGo _ Click () 


If r3.5tate = adStateÛpen Then r3.Close 

ra.Open "SELECT * FROM [Invoice Header Query] WHERE [" & Trim (cmbFieldName.Text) & "] LIRE 
Trin (txtFind.Text) & "%'", db, adOpenStatic, adLockûptimistic 

Call MSHFlexgridAlignment 


End Sub 
Private Sub Form Load () 


ûn Error GoTa er 

Call ConnectionDatabase 

If ra.5tate = adS5tateûpen Then rs.Claose 

rs.0pen "[Invoice Header Query]", db, adûpenStatic, adLockûptimistic 


Far i = Û0 Io r3.Fields.Count - 1 
cmbFieldName. AddItem rs.Fields. Iten (i) .Hame 
Next i 


cmbFieldName . Text = cmbFieldName .List (0) 
ra3.5ort = "Documents No" 

Call MSHFlexgridAlignment 

Exit Sub 


HsgBax err. Description, vbCritical + ¥rbOKOnly, "View documents Salea" 
End Sub 
Private Sub MSHFlezGrid1 DbIClick ( 

If MSHFlexGrid1.Row = O Then Exit Sub 

iDoc = MSHFlexGrid1.TextMatrix (MSHFlexGrid1.Row, 0)} 


Set rs = Nothing 
Unload Me 


الشكل )۳.۹١(‏ برمجة واجهة عرض المبيعات / الجزء الثاني 


EEE) 


Hm Project1 - frmViewSaleDocuemts (Code) 


(teneral) MSHFlexgridAlignment 


Private Sub MSHFlexgridAlignment ( } 


MSHFlexGrid1.Clear 
MSHFlexGrid1. Rows = 2 

Set MSHFlexGrid1 .DataSource = rs 
MSHFlexGrid1.ColWidth (O0} = 1000 
MSHFlexGrid1.ColWidth (1} = 1500 
MSHFlexGrid1.ColWidth (2} = 1000 
MSHFlexGrid1.ColWidth (3} = 1000 
MSHFlexGrid1.ColWidth [4] = 1500 
MSHFlexGrid1.ColWidth (5} = 1000 
MSHFlexGrid1 .ColWNidth (6) 1000 
MSHFlexGrid1.ColWNidth (7T} = 1300 
MSHFlexGrid1 .ColWNidteh (8) 1000 
1000 


| 


FJ FJ FJ FJ FJ FJ F3 


1000 
= 1000 
1000 
1000 
1300 


2 
ف 
ق 
۳ 
2 
2 
2 
. 
2 
2 
5 
2 
4 
کد 
2 


MSHFlexGrid1.ColWidth (3} 
. ColWidth (10) 
. ColWidth (11) 
. ColWidth (12) 
. ColWidth (13) 
. ColWidth (14) 
. ColWidth (15} 
. ColWidth (156) 
. ColAlignment (0) 
. ColAlignment (1} 
. ColAlignment (2) 
. ColAlignıment (3] 
. ColAlignıment (4] 
. ColAlignment (5) 
. ColAlignment (6) 
. ColAlignment {7} 
. ColAlignment {8)} 
. ColAlignment (3) 
. ColAlignment (10) 
. COLALlignment (11} 
. COLALlignment (12) 
. COLALignment (13) 
. COLALlignment (13] 
. COLALlignment (15) 
. COLALlignment (16] 


MSHFlexGridl 
MSHFlexGrid1l 
MSHFlexGrid1l 
MSHFlexGridl 
MSHFlexGrid1l 
MSHFlexGridl 
MSHFlexGrid1 
MSHFlexGrid1 
MSHFlexGrid1 
MSHFlexGrid1 
MSHFlexzGrid1 
MSHFlexGrid1 
MSHFlexzGrid1l 
MSHFlexGrid1l 
MSHFlexGrid1 
MSHFlexGrid1l 
MSHFlexGrid1l 
MSHFlexGrid1l 
MSHFlexGrid1l 
MSHFlexGrid1l 
MSHFlexGrid1l 
MSHFlexGrid1l 
MSHFlexGridi1 
MSHFlexGrid1l 


الشكل (۳.۹۷) برمجة واجهة عرض المبيعات / الجزء الثالث 


HSHFlexGrid1 .ColAlignmentFixed (03 
MHSHFlexGrid1 .ColAlignmentFixed (1} 
HSHFlexGrid1 .ColAlignmentFixed (2Z) 
HSHFlexGrid1 .ColAlignmentFixed (3J 
MHSHFlexGrid1 .ColAlignmentFixed (4 
MHSHFlexGrid1 .ColAlignmentFixed (5J 
HSHFlexGrid1 .ColAlignmentFixed (6) 
HSHFlexGrid1 .ColAlignmentFixed (7) 
HSHFlexGrid1 .ColAlignmentFixed (87 
HSHFlexGrid1 .ColAlignmentFixed (9; 
HSHFlexGrid1 .ColAlignmentFixed (10]} 
HSHFlexGrid1 .ColAlignmentFixzed (11] 
HSHFlexGrid1 .ColAlignmentFixed (12] 
HSHFlexGrid1 .ColAlignmentFixed (13J 
HSHFlexGrid1 .ColAlignmentFixed (14] 
HSHFlexGrid1 .ColAlignmentFixed (15J 
MSHFlexGrid1.ColAlignmentFixed (16} 
MSHFlexGrid1 . Refresh 
MSHFlezGrid1.TextMatriz (O0, 0} "Document Number" 
MSHFlezGrid1.TextMatriz (O, 1} "Date™ 
MSHFlezGrid1.TextMatriz (O, 2)} "Private™ 
MSHFlezGrid1.TextMatriz (O, 3)} "Client Number" 
MSHFlexzGrid1 . TextMatriz (O, "Remark™ 

MSHFlexzGrid1 . TextMatriz (O, "Veri fy"| 
MSHFlexzGrid1 . TextMatriz (O, "Guarantee Dailay™ 
MSHFlezGrid1 .TextMatriz (O, 1 "Number Doc Purchase" 
MSHFlexzGrid1.TextMatriz (O, 8 "Supplier Humber" 
MSHFlexzGrid1. TextMatriz (O, "Phone Name" 
MSHFlexGridl .TextMatriz (O, "Phone Model™ 
HSHFlexGrid1 .TextMatrizx (O, 11 "Unit™ 
MSHFlexGridl1l.TextMatriz (O, 12 "uantity™ 
MSHFlexGridl.TextMatriz (O, 13 "PrlGe™ 

MSHFlexGridl .TextMatriz (O, "Amount ™ 
MSHFlexGridl.TextMatriz (O, "Interset™ 
MSHFlexGrid1 .TextMatriz (Û, 1 = "ILosses™ 


ٹیا ٹیا شا ٹیا ٹیا ٹیا ٹیا ٹیا ٹیا ا 


نیا فا نتا نا نتا تا نت 


End Sub 


الشكل (۳.۹۸) برمجة واجهة عرض المبيعات / الجزء الرابع 


Sales Wirda 


Tol can in this window created Drder sale 


Document Number : [44 | Date: jg3-30-201 2 چ‎ Sale To 
8 1H 
EE f Customer f” Private 
Customer Number : Lustomer HY ame : 1 
Lomrments : 


۳ 
Phone : 2 „.„ | Phone Model : 2 „| Uni: Hualiky remnant : 

Hight Prize Purchase : lnterzek [*] : Sale Huraliky : 0 Price : ` |ntersetlosses: 

Row Number : ب‎ | Procedure : jad zz Run Procedure Gas Day 


° 
mt] urchasel Supplier ame Phanslame Phone adel LInik Huantity | Rate Amount lnterselhlossezs 


“| ا 1 ت د‎ 
Save Delete Clear Datla Invoice Werify Emit 


الشكل (۳.۹۹) واجهة المبيعات 


تم التعديل على الخصائص التالية : 


Properties 

Control Property 
Name 

Caption Sales 

BorderStyle 2-Sizable 

ComtrolBOX False 

StartUpPosition | 2 — CenterScreen 

BackColor &H8000000E& 

BorderStyle 0-None 

BorderStyle 0 — None 

Image Imagel Stretch True 

Picture Bitmap 

AutoSize True 

BackStyle 0 - Transparent 

Caption Sales Window 

ForeColor &H000000FF& 

AutoSize True 

BackStyle 0 - Transparent 

Caption You can in 

ForeColor &HOOFF0000& 

AutoSize True 

BackStyle 0 - Transparent 

Caption Document Number : 


Property Name 


FrmSale 


PictureBox Picture1 


Label1 


True 

0 - Transparent 
Date : 

True 

0 - Transparent 
Person Name : 
True 

0 - Transparent 
Customer Number : 
True 

0 - Transparent 
Customer Name : 
True 

0 - Transparent 
Comments : 
True 

0 - Transparent 
Phone : 

True 

0 - Transparent 
Phone Model : 
True 

0 - Transparent 
Unit: 

True 

0 - Transparent 
Quality remnant : 
True 

0 - Transparent 
Hight Price Purchase 
True 

0 - Transparent 
Interset (%) : 
True 

0 - Transparent 
Sale Quality : 
True 

0 - Transparent 
Sale Price : 
True 

0 - Transparent 
Interset\losses: 
True 

0 - Transparent 
Row Number : 
True 

0 - Transparent 
Procedure : 
True 


AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 
BackStyle 
Caption 
AutoSize 


Label4 


Label5 


Label6 


Label7 


Label8 


Label9 


Label10 


Label11 


Label12 


Label13 


Label14 


Label15 


Label16 


Label17 


Label18 


Label19 


Label20 


0 - Transparent 
Day 

0 — LeftJustify 
&H8000000F& 
Auto Number 

0 - LeftJustify 
&H8000000F& 
0 — LeftJustify 
&H8000000F& 
0 — LeftJustify 
&H8000000F& 
0 — LeftJustify 
0 — LeftJustify 
&H8000000F& 
0 —- LeftJustify 
&H8000000F& 
0 — LeftJustify 
&H8000000F& 
0 - LefJustify 
&H8000000F& 
0 — LeftJustify 
&H8000000F& 
0 — LeftJustify 
0 — LeftJustify 
&H8000000F& 
0 — LeftJustify 
&H8000000F& 
Customer 
Private 
Guarantee 
&H000000FF& 


Run Procedure 
Save 

1 ¬ Graphical 
Bitmap 
Delete 

1 ¬ Graphical 
Bitmap 

Clear Data 

1 - Graphical 
Bitmap 
Invoice 

1 - Graphical 
Bitmap 


BackStyle 
Caption 
Alignment 
BackColor 
Text 
Alignment 
BackColor 
Alignment 
BackColor 
Alignment 
BackColor 
Alignment 
Alignment 
BackColor 
Alignment 
BackColor 
Alignment 
BackColor 
Alignment 
BackColor 
Alignment 
BackColor 
Alignment 
Alignment 
BackColor 
Alignment 
BackColor 
Caption 
Caption 
Catopn 
FroeColor 
Caption 
Caption 
Caption 
Caption 
Caption 
Caption 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 
Caption 
Style 
Picture 


txtDocNo 


txtPrivate 
txtCustomerNoO 


txtCustomerName 
txtRemark 
txtUnit 


txtBalQTY 
txtRate 
txtlinterest 


txtSaleQTY 
txtSaleRate 


txtProfitWastage 


txtWarranty 


Option1 
Option2 


Guarantee 


Command! 
cmd ViewCustomer 
cmb ViewPhone 
cmbViewPhoneModal 
cmb ViewQTYBalance 
cmbGo 


cmdSave 


cmdDelete 


cmdClear 


cmdInvoice 


TextBox 


TextBox 
TextBox 


TextBox 
TextBox 
TextBox 


TextBox 
TextBox 
TextBox 


TextBox 
TextBox 


TextBox 


TextBox 


OptionButton 
OptionButton 


CheckBox 


CommandButton 
CommandButton 
CommandButton 
CommandButton 
CommandButton 
CommandButton 


CommandButton 


CommandButton 


CommandButton 


CommandButton 


Caption Verify 
CommandButton cmb Verify Style 1 ¬ Graphical 
Picture Bitmap 
Caption Exit 
CommandButton cmdExit Style 1 - Graphical 
Picture Bitmap 
Frame Framel Caption Sale To 
Frame Frame2 Caption - 
MSHFlexGrid MSHFlexGrid1 


عمل النموذج : 
.١‏ عند الضغط على زر المرقم بالرقم ١‏ يتم إظهار نمودج 
.frmViewSaleDocuemts‏ 
۲. عند إختیار آمر میں یتم تفعیل زر امر المرقم بالرقم ۲ 
۳. عند إختیار أمر ٥tھ‏ ۲1۷ يتم تفعيل صندوق النص عه ۲۷× و تعطيل 
زر أمر المرقم بالرقم ۲ . 
. عند الضغط على زر أمر المرقم بالرقم ۲ يتم إظهار نمودج 
frm ViewPhoneModalS‏ 
. عند الضغط على زر أمر المرقم بالرقم ٤‏ يتم إظهار نموذج 
frm ViewPhoneModalS‏ 
. عند الضغط على زر أمر المرقم بالرقم ١‏ يتم إجراء العمليات الحسابية 
اللازمة / تابع الصور لوضوح هذه العمليات الحسابية . 
. عند إختيار أمر ٥٥م‏ ۲ں يتم تفعیل صندوق نص ix) Waran †y‏ 
. عند الضغط على زر أمر ۴۲٥٥٤٥۲٥‏ ہں PR‏ يتم إجراء عملية البیع مع 
إظهار الناتج في الشبكة . 
. عند الضغط على زر أمر مه يتم التأكد من الصلاحيات و حفظ العملية 
فى قاعدة البيانات . 
.٠‏ عند الضغط على زر أمر مام1ء( يتم حذف العملية المحددة في 
الل E‏ 
.١‏ عند الضغط على زر أمر واه ه1 يتم تفريغ الحقول . 
.١‏ عند الضغط على زر أمر ٥ء‏ م۷م] يتم عمل فاتورة بيع بالعملية 
المحددة في الحقول . 
۳. عند الضغط على زر أمر اه۷ يتم إعتماد عملية البيع . 


أما بالنسبة لبرمجة النموذج أترك لك عزيزي القارئ محاولة 
البرمجة و الاستمتاع بها . و إن حدث عطل ما أو لم تستطيع برمجته لا 
تترد في الاتصال و المراسلة عبر البريد الالكتروني التالي : 
a.abunemer@hotmail.com‏ 


Management Operations Invioces 5لا اھ‎ 


4 ® O O © 


3 
Lontrol Information ReOrder kreate Return Exit 
Panel Request BackUp BackUp 
contro 1 Fefirder Bark Up Bark Up 


الشكل )۳.٠١ ١(‏ الواجهة الرئيسية 


** تصميم التقارير و الفواتير . 


Purchases Invoice‏ ك 


¥ Report Header (Section4] 


¥ Page Header (Section2) 


_ ¥ Page Footer (Section3) 
_|_ € Report Footer (Section®) 


1 l1l | | | | |] | | | | | |] | | | | | 


الشكل )٤٠.١(‏ تصميم فاتورة أمر شراء 


x Sales Invoices 


rn f E 
- # Page Fonter EET 


- # Report Footer (SectionS) 
ل ا ا ل ل ا آ ا ا ا‎ 


الشكل )٤.۲(‏ تصميم فاتورة أمر بيع 


Customer 


لذ 


w# Page Footer {Section3] 
# Report Footer (Section 5} 


LI 
5 
7 
3 
1 
0 


ıı | ت‎ | e | 


الشكل )٤٠.۳(‏ تصميم تقرير بالعملاء 


™ Suppliers 


الشكل )٤.٤(‏ تصميم تقرير بالموردين 


Phones Models 


ا 


Phones 


w Page Footer {Sectian3) 


E Report F Footer (Sections) 


| 
ON... 
: 
: 


الشكل )٤.٦(‏ تصميم تقرير بالهواتف 


& Profit 


الشكل )٤.۷١(‏ تصميم تقرير بالفوائد 


` Wastagqe 


E # Page Footer EES 
Lal 

|_| ¥ ReportFooter (Sections) 
١ 


1 


TT 


الشكل )٤.۸(‏ تصميم تقرير بالخسائر 


Units‏ ك 
ص 


E E E E 


e Page Header (Section2) 


___ Unit_pdseriptiod] |___[Unit_Nd] 


الشكل )٤.۹(‏ تصميم تقرير بالوحدات 


كلمة شكر ؛: 


لابد لي وأنا أخطو خطواتي الأخيرة في الحياة الجامعية من وقفة 
O Gg‏ 
لن كارا أقدس رسالة في الحياة إلى الذين مهدوا لي طريق العلم 
والمعرفة إلى جميع أساتذتي الأفاضل. 


لم تستط فلا تبغد « 


وزودني بالمعلوما ت اللازمة 
لإتمام هذا المشروع وأخص بالذكر : 


أ عبدالرحمن عبدالكريم الشيخ م. ق ا 
م. أنوار سليمنن الطاه ات 


م. ولاءِ ال ان م. فاطمة الجم ل 


أهدي مشروعي هذا الى التي بها نظمت هذه الخاطرة 
أهواها 


و اليوم أهواها 

ولم أرى في بحر الحب 
لولوة سواها 

کان نجوم الليل 

تتلألاً في محياها 
أغرقتنى فى تلك الدوامة 
أهدمت شراعی 
حطمت مجذافي 

أبقتني عائما على 
أمواج تلك الدوامة 
أرسل سلامي 

برسائل مطلعها 

لا أحد من العشق سالم 
لا أحد من العشق سالم 


في النهاب فة: 


OE E N 
. النقطة حتى أبدء من عندها بموضوع أخر بأذن الله تعالى‎ 


أرجو أن أكون قد وفقني الله تعالى في سرد مواد هذا الكتاب 
المتواضع و أود من الله تعالى أن ينفعكم و لو بالقليل في أعمالكم . 


اللهم أني أعوذ بك من علم لا ينفع و من نفس لا تشبع ومن قلب 
لا يخشع ومن دعوة لا يستجاب لها أمين . 


راجيا من الله تعالى فيكم الدعاء لي بالتوفيق بظاهر الغيب . 


| اخوک‎ 
عبدالکریم محمد ابونمر‎ 
Jordan / Irbid 
!  T Phone: 00962788507656 


4 E-Mail: a.abunemer@hotmail.com 


